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From the Editor’s Disk 


We agree that COMAL is preferred over 
other programming languages. Now it is 
official from Commodore USA! COMAL is 
the third most popular language used on 
Commodore computers. BASIC & ML are 
higher only because the computer comes 
with them. Thus COMAL is the number 1 
language of choice (people don’t choose 
BASIC, they merely accept it). 

Good news. If you have any of our COMAL 
disks, you now can have it’s entire 
directory pasted onto the front of your 
disk sleeve. The directories of almost 
all our COMAL disks are printed in this 
issue - a full 15 pages of directories! 

Each is printed in just the right width 
to fit perfectly on the front of a disk 
sleeve. Just photocopy the page and cut 
out the sleeve overlays you need. 

Even more good news. The matching Today 
Disk #77 contains a complete graphics 
editor system (even 2.0 people will now 
have an excuse to use 0.14 again). Each 
program depends on the others in the 
system. The programs cannot be used 
separately. But, if you list the 
programs, you will probably find many 
useful procedures. Create your own 
procedure library. List the ones you 
like to disk for future use. If, for 
example, you wish to pull out a 
procedure that is at lines 350-420, 
issue this command: 
list 350-420 n all'mine.proc n 

Almost half of our newsletter 
subscribers also subscribe to the Today 
Disks ! Because of this we can publish 
special systems as part of the 
newsletter / disk set (such as the 
Graphics Editor of this issue). And 
while the age of typing in programs may 
be dead, we will continue to list our 
programs. 


Everything announced last issue is now 
available, including the Packages 
Library book/disk set (already on the 
top 5 best sellers list). It includes 
information on using 17 different 
packages for the 2.0 Cartridge. The 
ready to LINK packages are on the disk 
as well as the full source code (when 
available). As a bonus, the disk also 
includes a Smooth Scrolling Editor with 
full screen editing (lines kind of glide 
across the screen). Even Commodore 
wanted a copy of it. 

Next issue we plan to announce four more 
COMAL books. One is a superb full size 
text book which has a down to earth way 
of looking at learning programming, 
designed with the American student in 
mind! Complete with objectives. Also 
coming soon are a tutorial for 2.0 
Graphics, a beginners guide to COMAL, 
and a 2.0 COMAL introduction. 

While most "big" magazines make a big 
deal out of one feature program, we 
provide many feature programs. This 
issue you get the 80 column screen on a 
Cl28 from COMAL breakthru, a POP OVER 
menu system, complete graphics editing 
system, and more. Next issue we plan to 
include Sideways (print Multi plan 
spread sheets sideways), a double column 
file printer, a package to transfer a 
user defined font from the computer to 
your printer, and a Cl28 package. 

Other magazines may be hurting, but have 
no fear. We’re fine. January 1986 orders 
were better than both November or 
December 1985, and we have a fine supply 
of programs and articles that are 
already being put together for our next 
issue. (Sorry about the delay on this 
issue, but we lost our associate editor 
in December - the job is still open). |B) 
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COMALites Unite! 


April 26 and 27 is a Commodore Show in 
Nashville, Tennessee. Stop by the 
Transactor booth to get a copy of our 
new 24 page COMAL Info Booklet. You may 
not realize that the Transactor is one 
of the oldest Commodore magazines. They 
provide the technical information you 
need. I’ve subscribed to Transactor for 
years and recommend it. 

In September we hope to be at the 
Commodore Show now being planned for Los 
Angeles. More details later. 

COMAL is now supported on several 
national On-Line networks. Meet Captain 
COMAL (Captain C) on Playnet every first 
'Thursday of the month or on Quantum Link 
levery second Thursday. Meeting starts at 
,!10pm Eastern Time. Tuesday nite is the 
;*;time to be on People Link (leave EMAIL 
; ;to ICONOCLAST). CompuServe has a Beyond 
;BASIC section with ongoing COMAL 
information. Delphi is now incorporing 
COMAL into both the Commodore Flagship 
’ and TPUG sections. 

•;-Questions? Get them answered within a 
• ;’few days (allow a week) on Quantum Link. 

; There is a special COMAL Questions and 
Answers board. Captain COMAL tries to 
stop in at least once a week and post 
answers to all questions left on the 
board. Other COMALites are welcome to 
respond to the questions as well. To get 
there go to the Commodore Information 
Network (CIN). Then choose Meet The 
Press. Next pick COMAL Today. Finally, 
choose Q & A. You can read all the 
questions and their answers. Some of 
your questions may already be answered! 

! Wonder where all the neat COMAL programs 
, come from? From people like you! This is 
; your newsletter, and your Today Disks. 

If you develop interesting COMAL 


programs, send them in. In exchange we 
will send you a User Group Disk of your 
choice (already 11 to choose from). 

Articles about any COMAL related topic 
are always welcome. Please send the text 
as disk files (in PaperClip, WordPro, 
Paperback writer, or EasyScript format 
if possible). 

If you ever get a defective disk from 
us, return it within 30 days and get a 
free replacement. You also can get an 
extra "backup" copy of any disk you 
order from us for $5 (in case you have 
trouble making your own backup copy). We 
now are making our own copies of the 
matching disk to the Cartridge Tutorial 
Binder. Too many disks we received from 
Commodore had problems. 

We encourage you to write to the "big" 
Commodore magazines. Can you afford to 
subscribe to a magazine that doesn’t 
cover COMAL? If you read Ahoy, send in 
solutions to their Commodores problems. 
They are usually easier to solve in 
COMAL. If you read RUN, they now will 
officially accept COMAL Magic tips! Send 
them your hints and tips today! Finally, 
Ahoy has decided to include COMAL 
programs on it’s monthly disks. All we 
have to do is send the programs to them. 
Sounds promising. 

Our free subscription to schools 
continues (only one per school, USA 
only). We also continue to exchange 
newsletters with other User Groups (put 
us on your group mailing list and we add 
you to ours) - also USA only. 

Finally, we plan on releasing an ICON 
Disk in April. Some of the pictures that 
have been submitted to us for it are 
printed in this issue. If you have any 
custom icons please send them in. 
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Expand 

Past 

Maximum 

Capacity! 



The Tech/News Journal For Commodore Computers 


At better book stores everywhere! Or 6 issues delivered to your door for just $15.00 
That’s 29% off the newstand price! (Overseas $21 U.S. Air Mail $40 U.S.) 

The Transactor. 500 Steeles Ave. Milton, Ontario. L9T 3P7. 416 878-8438 
Also check out The Transactor Disk; every program from each issue, in order as they appear 
and The Complete Commodore Inner Space Anthology; over 2.5 million characters of reference information exclusively. 

Included are memory maps for BASIC, COMAL, CBM disk drives, BBS numbers, machine language charts, Kernel routine summaries, printer 
commands, recording formats, I/O port maps, port pinouts, audio control tables, video reference charts, keyword values, commands for common 

software packages, MLM and assembler commands, and there’s more! 

To us, expansion knows no limits! 
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COMAL Comments 


by Sol Katz 

Perhaps the most unusual command 
structure in COMAL (from a BASIC 
programmer’s point of view) is the CASE 
structure. The closest thing in BASIC is 
the ON .. GOTO or ON .. GOSUB. 

The CASE structure allows multiple 
branches in a program, depending on the 
value of the controlling variable. 

Unlike BASIC, the variable can be either 
numeric or string, and there is no need 
for the choices to be in any order. The 
keywords that make up the CASE structure 
are underlined : 

case variable &f 
when value 
// statements go here 
when value 
// statements go here 
otherwise 

// statements go here 
endcase 

The controlling variable comes 
immediately after the keyword CASE. Each 
choice is prefixed with the keyword 
WHEN. The OTHERWISE section statements 
are executed if the variable has a value 
that was not one of the choices. ENDCASE 
ends the structure. 

As a bonus, more than one value for a 
variable can be part of the WHEN clause. 
For example: 

input "enter a 1 digit number:":number 
case number of 

when 7,5,1,9,3 //order is not important 
print "the number is odd" 
otherwise 

print "the number is even" 
endcase 


When using string variables, the values 
must be in quotes. For example: 

dim letters of 1 

input "Type a capital letter: ":letter$ 
case letters of 
when "A","E",T',"0","U" 
print "This is a vowel" 
when "Y" 

print "This is sometimes a vowel" 
otherwise 
clear’screen 

print "This is a consonant" 
print "This shows another statement" 
endcase 

// 

proc clear’screen 
print chr$(147), 
endproc clear’screen 

If you haven’t guessed by now, // is the 
COMAL equivalent to REM in BASIC. It 
indicates a comment. [You also can use 
an exclamation point (!) which COMAL 
will convert into // for you.] 

The last bonus of the case structure is 
that string variables are not limited to 
one letter. For example: 

dim month? of 3 

input "Enter name of a month:":month$ 
case months of 

when "Jan"." ian"."Feb"."feb"."Mar"."mar" 
print "It’s winter and I’m cold" 
when "Apr"."aor"."Mav"."mav"."Jun"." iun" 
print "The flowers are blooming" 
when "Jur,"jul","Aug","aug","Sep","sep" 
print "Sure is hot" 

when "Oct","oct","Nov","nov","Dec","dec" 
print "Pretty colors" 
otherwise 

print "Either you’re a wise guy or" 
print "you don’t know what a month is" 
print I don’t know that month." 
endcase 

More ► 
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COMAL Comments - continued 


[Notice in the above example that MONTHS 
is dimensioned to 3 characters. Thus, 
the user could type in the full name of 
the month (such as JjjnuaryJ and the 
program would still work properly, since 
COMAL would only remember the first 3 
letters of what was typed in. Also, note 
that the first letter of the month name 
can be capitalized or not.] 

In most of my examples I have used PRINT 
statements, but you can use any valid 
COMAL statements and any number of 
statements as part of a WHEN or 
OTHERWISE clause. As another bonus, no 
matter how you enter the program, COMAL 
will format it to appear as it does in 
these examples, and if you make syntax 
errors as you enter a program, COMAL 
will tell you, then and there. Now 
aren’t you glad you switched to COMAL? 

If you haven’t, remember that copies of 
the language are available in our club 
library. 

[COMAL Users Group USA Ltd has over 50 
different COMAL disks now. See order 
form at the back of this newsletter. 

This article was reprinted from CUFLINK, 
July 1985] |g) 

TYPE IN OLD ENGLISH 

by Phyrne Bacon 

This is a new font - only BIG! The 
directions on how to type in Old English 
appear when you run the program, 
followed by a quote from Through the 
Looking Glass. Then every valid 
character that you type is echoed on the 
screen in Old English lettering. Press 
f7 to transfer the text to the graphics 
screen (it can then be dumped to your 
printer). Press fl to exit. A version 
for both COMAL 0.14 and 2.0 are on the 
back side of Today Disk #11 along with 
the Old English font, g 


Live Menu 


by Christopher J. Abissi, M.D. and friends 

Utility programs frequently employ menus 
to direct the user to the different 
portions of a program. A menu with a 
number of options can take several 
seconds to print on the screen. Under 
optimal conditions the C64 takes between 
3 and 4 seconds to fill its screen. This 
does not pose a problem to the novice 
user. However, after one has become 
familiar with the options it can become 
tiresome to repeatedly wait for the menu 
to print. 

In BBS programs or terminal programs the 
screen printing is even slower, and it 
can take 26 seconds to completely fill 
the C64 screen. Permitting faster menu 
selection decreases the time the user is 
on-line (lower connect charges). 

I have written a "live" menu demo 
program to help with this problem. With 
this type of menu the user can make a 
choice as soon as the menu begins 
printing and go straight to the option. 

A second menu can be accessed from the 
first. Following similar structures even 
more can be linked. The menu information 
is stored in DATA statements at the end 
of the program permitting it to be 
customized as desired. To handle the 
options a CASE structure was used with 
an IF structure nested within to handle 
the second menu. The COMAL language and 
the comments that have been included 
make the program largely 
self-explanatory. 

Enjoy the program and feel free to use 
the menu procedure in your own programs. 
We may have to wait for our disk drives, 
but COMAL users no longer have to wait 
for their menus! [This 2.0 program is on 
Today Disk #11] g 
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Grey Mat - 

Think Into Your C64 


by Joel Rea 

We interrupt this issue of COMAL Today 
to bring you an announcement of a most 
important new product. Forget paddles, 
joysticks, trackballs, lightpens, touch 
pads, touch screens, mice, foot-mice and 
voice recognition. The ultimate in 
user-friendly input is here! From 
Cerebronics Hardware Enterprises comes 
the all-new GreyMAT Brainwave Scanning 
Interface! This amazing device actually 
digitizes input from your own "Grey 
MATter", then compares it with an up to 
64-thought "Psychabulary" file. The 
driver software then returns the closest 
match to the calling program. Though not 
completely perfected, GreyMAT is still 
the most important advance in computer 
science since the invention of binary 
numbers! 

It’s also malarkey! The program 
" greymat " on this disk is actually a 
mentallist-type parlor trick. When RUN, 
this program pretends to read in the 
GreyMAT driver routines and a 52 thought 
Bridge-Card Psychabulary file. 

Balderdash! What the program is actually 
doing is scanning 2 junk files on the 
disk. When done, it will display a fake 
"Copyright" notice, show a message 
asking the user to think of a playing 
card and re-RUN the program, then it 
exits to COMAL 2.0’s "Ready" prompt. 

More baloney! It just looks like it’s in 
COMAL! You can type in and execute most 
of the COMAL 2.0 commands (such as DIR, 
CAT, LIST, FIND, DISPLAY, etc.), use 
full-screen editing, change cursor color 
as well as use CTRL V, W, X and Y to 
change the background and border colors, 
and even get hardcopies of the text 
and/or the graphics screen via CTRL D 
and H. (CTRL A, B, F, K and L are not 


simulated.) You can even execute 
immediate mode COMAL statements! Don’t 
generate an error, it will cause GreyMAT 
to "crash out". Just re-RUN if this 
occurs (you will hear 2 error beeps). 

When someone types in a RUN command 
(without filename, of course!), the 
GreyMAT program will claim to be reading 
the non-existant GreyMAT device, then 
analyzing the data it never got. It will 
then state that the card you were 
thinking of was some card it generated 
randomly. 

What’s the trick, then? Type the "R" key 
as if you were going to do a "RUN" 
command (the cursor must be at the full 
left-hand margin). Now, instead of 
typing "U", type "5". What’s this? The 
computer echoed "U" instead of "5"! Now 
type "C" in place of "N". Hmmm . . . the 
computer echoes "N". The word "RUN" is 
on our screen (even though we typed in 
R5C). Press <return>. The program goes 
through its normal fake read/analyze 
routine, then states that the card you 
were thinking of was a Five of Clubs! 
Hmmm... "5” of "C'lubs? Let’s try 
another.* Type "RQH", which will echo as 
"RUN" and press <return>. The computer 
claims you were thinking of a Queen of 
Hearts! Now you see the pattern. Typing 
"R" followed by the desired Rank and 
Suit of the card will cause the computer 
to claim that you were thinking of that 
card! The poor "sucker" you are pulling 
this on will think you just typed "RUN", 
since that is what is on the screen, and 
since the other regular COMAL commands 
work. 

If the "sucker" wants to be at the 
keyboard, just let him. Naturally, he 
will type "RUN", and the computer will 
choose a random card. Of course, that 

More ► 
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GreyMat - continued 


means there is a 51-in-52 chance that it 
wasn’t the right card. Just say that the 
"Psychabulary" file was made by you with 
the "training" program and that it takes 
3 hours to create a file for another 
person, or that the person was thinking 
about his typing and not the card when 
he actually pressed the <return> key, 
etc. 

If you really want to carry this trick/ 
hoax/ fraud/ April Fool’s joke to its 
logical conclusion, just build yourself 
a "GreyMAT" device! All you need is a 
cloth jogger’s-type headband or a ski 
cap or a baseball cap or some such, and 
a joystick wire and connector. Just 
stick the wire end of the joystick wire 
into the headware somewhere, and plug 
the other end into one of the Game 
Ports. If done right, it looks real 
enough to fool Jesse Knight himself! (I 
know, I pulled it on him, Len, Borge and 
others at MARCA Fair!) 

The most convincing way to do the trick 
is to obtain a deck of marked cards 
(DeLand’s Automatic Deck, available at 
magic shops, works fine!). You can then 
have the "sucker" shuffle and cut the 
deck and place it face down beside the 
computer. You then read the back of the 
top card, then type "RUN" (not really, 
of course!), then pick up the card 
(pretending that only now do you know 
what it is), then press <return> while 
pretending to concentrate real hard on 
the card. I also suggest you use a TV, 
or an SX-64 connected to an external 
monitor, or at least have your 64 some 
distance away from the monitor, so the 
patsies’ attention is drawn away from 
what you are really typing! 

Well, since I embarrased poor Jesse 
Knight a paragraph or two ago, I will 


1/lensctl 1/mccauley- bugs/MISSING KE 

point out that this program would not 
have been possible without his article 
entitled "Batch Files from Memory" in 
COMAL Today #7, pages 32 & 33. How else 
do you think I can simulate the COMAL 
editor from within a COMAL program? 

One last note. I suggest before showing 
some poor shmuck the GreyMAT Card Demo, 
that you let him read the first 
paragraph of these instructions! [photo 
copy it and black out rest of page.] 

Then, after you have thoroughly 
bam-boozled him with the trick, instead 
of just telling or showing him how it 
really works, just let him read the REST 
of the story! Watch him do a slow burn! 

Heh heh heh... 

[Ed Note: Don’t let your friends read 
this COMAL Today until you’ve tried this 
program on them. It reminds me of 
"Chinese Numbers". Building your own 
GreyMat device is quite easy (since it 
doesn’t really do anything) and makes 
your "show" quite convincing. You may 
wish to turn off the computer after 
running this program, though Joel 
assures us that it is not necessary.] |g 


MISSING KEYWORDS 

Question: Did I miss something, or did 
the COMAL-80 Tutorial Binder omit the 
description for SETSCORE in the Sound 
package section? I find references to it 
in the narrative and in the summary on 
page 191. On the other hand. The 
Cartridge Graphics and Sound book had 
the SETSCORE procedure but omitted 
talking about either FREQUENCY or 
PLAYSCORE. - Bob McCauley, APO, NY 

Answer: Ooops. fg 
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Bug Fixes 


HANDBOOK FIX 

Page 220 of the COMAL Handbook should 
be appended to allow for the C64 COMAL 
2.0 Cartridge, whose control location is 
at $C7D8 rather than at $24B. Also note 
a change in the meaning of the first two 
bits: 

Bit 0: l=normal C64 mode 

0=convert control codes to 
""<value>"" 

Bit 1: l=normal C64 mode 

0=ignore quote mode & insert mode 

The default value of these bits in the 
control location are: 

Decimal 128, Binary % 10000000 

FIX FOR SOUNDEX 

Martin Page sent us this note about the 
SOUNDEX program we printed in COMAL 
Today #8, page 22: 

I have just inserted the SOUNDEX 
function into a mailing list program for 
our local wildlife films but was 
frustrated by substring errors. The 
solution did not occor to me rapidly, 
although it is very simple. Names with 
non-alphabetic characters such as’ 

O’Connor or double-barrelled names with 
a hyphen cause the problem. To discard 
these characters add the appostrophe and 
hyphen in the line: 

if not (name$(i#) in "AEHIOUWY’-" then 

Perhaps this could help other 
programmers using the SOUNDEX function 
(or procedure in COMAL 0.14). 


DIRTRINTER3 FIX 

There is a bug in the dir’printer3 
program on the Best Of COMAL disk. Line 
1270 should remove the *3 on the end of 
the procedure name: 

From: 1270 print’heading’3 
To: 1270 print’heading 

WORD GAME FIX 

Option 5 of the Word Game in COMAL Today 
#8 doesn’t work. Peter Gilbert has 
provided this fix: 

WHEN ”5" 

FOR n:=l TO LEN(textS) DO 
IF text$(n) IN punc$ OR text$(n)=" " 
THEN // wrap line 
guess’text$(n):=text$(n) 

ELSE 

guess’text$(n):="-" 

ENDIF 
ENDFOR n 

// 

// 

n:=l 

LOOP 

REPEAT 

IF textS(n) IN alf$ THEN 
guess’text$(n):=text$(n) 

ENDIF 

n:+l 

UNTIL text$(n)=" " OR n=LEN(text$) 
EXIT WHEN n>=LEN(text$) 

REPEAT 

IF text$(n) IN alf$ THEN 
guess’text$(n):="-" 

ENDIF 
n:+1 

UNTIL text$(n)=" " OR n=LEN(text$) 
EXIT WHEN n>=LEN(text$) 

// 

ENDLOOP fl 
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MORE ThAN juST ANOtI|ER COMPUTER MAqAZINE! 


A membership 
in the 

world’s largest 
computer club- 
will provide I 




n JSfejh m 

-mp 

5M 



-'V is'i--. ' ' J 


S'*' 

CO^P ul * 



you with: 


°° %$> 


10 issues of TPUG magazine 

• Advice from experts like Jim 
Butterfield and Elizabeth Deal 

• Access to our huge library of 
public domain software 

• Access to our online help services 

• All for only $25/yr. 

JOIN US NOW!! 


I want to join TPUG as an associate member. 

__ Home phone (__ 


Address __ 

City/Town _ 

Prov/State _ 

Postal/Zip Code_ 

My computer equipment is: 


Country 


Work phone (_.)_ 

CH Cheque enclosed 

CH Money order enclosed 

CD Visa D MasterCard 


Signature 
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COMAL 

Implementations 

As of September 1984 


Hardware: 

(updated February 1986) 


SPC/1 

Supermax 

Compiled by: Kevin Ryan, Secretary of 
the COMAL Standards Group, Department of 

Operating System: 

Computer Science, Trinity College, 

Mikados 

Dublin 2, Ireland 


Supermax OS 

Unix 

AcornSoft 

Betjeman House 


IBM Denmark 

104 Hills Rd 


Teknikerbyen 3 

Cambridge CB2 1LQ 


DK - 2830 

ENGLAND 


Virum, Denmark 

Phone: +44-233-316039 


Hardware: 

Hardware: 


IBM PC 

BBC Micro A 


IBM PC XT 

BBC Micro B 


IBM PC AT 

Acorn Electron 


Zenith 151 

Compaq Portable 

Operating System: 


Compaq Deskpro 

BBC MOS 


Panasonic Sr. Partner 

Electron MOS 


Tandy 2000 

Tandy 1000 

Commodore Data 

Jan Nymand 


Amiga with Transformer 

Bjerrevej 67 


Operating System: 

DK - 8700 


MS DOS 

Horsens, Denmark 

Phone: +45-5-641155 


PC DOS 



Part Number (Bestillingsnummer): 

Hardware: 


IBM COMAL-80 

Commodore 64 

Commodore 128 


8132532. 

Instrutek 

Operating System: 


Christiansholmsgade 

Commodore DOS 


DK - 8700 

Horsens, Denmark 

See also UniComal 


Phone: +45-5-6111100 

Dansk Data Elektronik 


Hardware: 

Herlev Hovegade 199 


PET 2001 

DK-2730 Herlev 


CBM 4016 

Denmark 


CBM 4032 

Phone: +45-2-845011 


CBM 8032 

CBM 8096 



More ► 
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COMAL Implementations - continued 


II 


Operating System: 

Sales office: 

Commodore DOS 

Mytech Software 

See also UniComal 

11120 Rosell St. E. 

San Diego, CA 92121 

Metanic Aps 

Mogens Pelle 

Phone: 619-452-9847 

Working on: 

Byvej 11 

Macintosh COMAL 

DK - 3600 

Stenlose, Denmark 

RegneCentralen 

Phone: +45-2-172728 

Torsten Schmidt 

Hardware: 

Lautrupbjerg 1 

DK - 2750 

All Z-80 Systems with CP/M 

Ballerup, Denmark 

and at least 48K including: 

Phone: +45-2-658000 

Apple with CP/M card 

Osborne 

Hardware: 

Kaypro 

RC Piccolo 

SI00 Z-80 Systems 

RC Partner 

Operating System: 

RC Piccoline 

RC 855 

CP/M 

Mytech Data 

Operating System: 
CP/M 80 

Bo Gardmark 

Concurrent CP/M-86 

Box 7230 

S-402 35 

Teli Nova 

Goteborg, Sweden 

Bo Jansson 

Phone: +31-420780 

Box 213 

Hardware: 

S-14901 Nynashamn 
Sweden 

128K Personal Computer 

Phone: +46-7-5262390 

WICAT 

IBM PC 

Hardware: 

IBM PC XT 

Compis 

IBM PC AT 

Scandis 

TELI Compis 

Operating System: 

Operating System: 
CP/M-86 

MS DOS 2.0 and up 

MS-DOS 

CCP/M 

Unix 

CP/M 

Xenix 

CP/M 86 

Unix version 7 and up 

More ► 
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Implementations - continued 


TCD COMAL 

Software Engineering Laboratory 
Dept, of Computer Science 
Trinity College 
Dublin 2, Ireland. 

Phone: +353-1-772941 

Hardware: 

VAX 
PDP 11 

Operating System: 

VAX/VMS 

RSTS/RSX 

UniComal Aps 

Jens Erik Jensen 
Snogaardavej IOC 
DK - 2820 
Gentofte, Denmark 
Phone: +45-1-651762 

Hardware: 

PET 2001 
CBM 4016 
CBM 4032 
CBM 8032 
CBM 8096 
SUPERPET 
Commodore 64 
Commodore 128 

Operating System: 

Commodore DOS 

SPECIAL NOTE: 

We have an investor who would like to 
sponsor someone or some team to develop 
a COMAL for the 128K Apple lie / lie. 

This could be a major product. It should 
have the features of C64 COMAL 0.14 
(less sprites) plus PAGE, STRS, VAL, and 
GETS. Anyone interested should contact 
us rieht awav: COMAL Users Group, USA, 
Ltd, 6041 Monona Dr, Madison, WI 53716. B 


' Best Selling 
Books 

Captain COMAL books are edging out the 
old favorites. COMAL Yesterday and 
Packages Library are new additions. 
Speaking of library, the book/disk set 
Library of Functions and Procedures just 
misssed again. To give it a boost, we 
now include Utilities #7 disk with each 
copy. Watch next issue for THREE new 
Captain COMAL books for COMAL 2.0, one 
a full size 300 plus page textbook! 

November 1985 

#1 - COMAL From A To Z 
by Borge Christensen 
#2 - Cartridge Tutorial Binder 

by Frank Bason & Leo Hojsholt 
#3 - Cartridge Graphics and Sound 
by Captain COMAL’s Friends 
#4 - COMAL Workbook 
by Gordon Shigley 
#5 - COMAL Handbook 
by Len Lindsay 

December 1985 

#1 - COMAL From A To Z 
by Borge Christensen 
#2 - Cartridge Tutorial Binder 

by Frank Bason & Leo Hojsholt 
#3 - Cartridge Graphics and Sound 
by Captain COMAL’s Friends 
#4 - COMAL Yesterday 

First Four COMAL TODAY Issues 
#5 - COMAL Workbook 
by Gordon Shigley 

January 1986 

#1 - COMAL From A To Z 
by Borge Christensen 
#2 - Cartridge Tutorial Binder 

by Frank Bason & Leo Hojsholt 
#3 - COMAL Yesterday 

First Four COMAL TODAY Issues 
#4 - Cartridge Graphics and Sound 
by Captain COMAL’s Friends 
#5 - Packages Library 

by David Stidolph B 
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Book Review 


Starting With COMAL by Ingvar Gratte 

Reviewed by Brian Grainger 

Reprinted from Independent Commodore 

Products Users Group Newsletter, England 

Starting With COMAL is the fifth title 
on COMAL to be published in the UK. As 
the author says at the end, it aims to 
teach structured programming and 
top-down design. The author is a Swedish 
teacher who used Commodore COMAL 
versions predominantly throughout the 
book. As I was involved with reading and 
commenting on the manuscript it also 
means the book was well researched! 

I should say from the outset that this 
book was a long time in the making, 
which shows a little in the various 
references to different COMAL versions. 
The original manuscript was written at 
the transition from 0.11 to 0.12 PET 
version of COMAL and I suspect it has 
been recently updated to cover the C64 
version as well. This may lead to some 
confusion, as the COMAL standard was 
really only finalized with the latter 
versions. Earlier versions were steps 
along the way. 

Quite simply, this book is in direct 
competition with Beginning COMAL , as it 
is a teach-yourself book on COMAL. I 
believe Starting with COMAL is better. I 
find it less childish and it has 
numerous simple exercises to reinforce 
the points in the book. 

The book follows a natural progression 
from simple programs involving input and 
output, through conditional structures 
and loop structures, to use of 
procedures. The final chapters cover the 
more complex subjects of array 
variables, DATA statements and file 
handling. Random (or relative) files are 


covered in the latter, which is somewhat 
unusual. 

The text is written in such a way as to 
introduce some points then provide lots 
of simple exercises for the reader to 
carry out. On completion, more points 
are introduced and so on. This makes the 
book fun to use because one can actually 
get on the computer while learning, 
rather than just reading the book by 
itself. 

All the important niceties of 
programming that some programmers think 
they can avoid are introduced painlessly 
as a matter of course. I am talking in 
particular of remarks to indicate 
program title, version and author, and 
the use of structure diagrams. Extensive 
use is made of structure diagrams 
throughout the book. On completion of 
the course the student should realise 
just how valuable they are. 

Another feature of this book that I 
think is unique is that some of the 
exercises are deliberately designed so 
the answers don’t work! Just like 
real-life programming. A valuable way of 
learning. 

In reading the text I have found a 
couple of errors. One is caused by a 
change to SELECT OUTPUT "LP:" in 
standard COMAL. The other relates to 
obtaining random integers, which will 
not apply to Commodore COMAL versions 
as they have a built in function to do 
this. 

All in all, this a good teaching book 
that I think the newcomer to structured 
programming will find helpful and fun to 
read. ■ 
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Control Key Values 


By Larry Winckles 

KEY / ASCII / FUNCTION 
<Ctrl-@> 0 ??? 


KEY / ASCII / FUNCTION _ 

<Ctrl-M>*13 Same as <RETURN> 

<Ctrl-N>*14 Switches to lower case mode 


<Ctrl-A> 1 Removes indentations of 

listed line, including wrap 
lines--Restores line to 
original state (before 
hitting <RETURN>)--Displays 
entire line after typing 
only the line number 

<Ctrl-B> 2 Moves the cursor back one 
word (current line only) 

<Ctrl-C> 3 Aborts program currently 
being run (Same as <STOP>) 

<Ctrl-D> 4 Dumps graphics screen to 
printer 

<Ctrl-E>* 5 Changes cursor color to 
white (Same as <Ctrl-2>) 

<Ctrl-F> 6 Moves the cursor forward one 
word (current line only) 

<Ctrl-G> 7 ??? 

<Ctrl-H>* 8 Disables upper/lower case 
toggle (<C« & Shift>) 

<Ctrl-I>* 9 Enables upper/lower case 
toggle (<C= 6c Shift>) 

<Ctrl-J> 10 ??? 

<Ctrl-K> 11 Clears text from present 
cursor position to end of 
current line 

<Ctrl-L> 12 Moves cursor one space after 
last character on current 
line 


<Ctrl-0> 15 ??? 

<Ctrl-P> 16 Sends text screen to printer 

<Ctrl-Q>*17 Moves cursor down one line 
(Same as <CRSR-D0WN>) 

<Ctrl-R>*18 Turns reverse mode on (Same 
as <Ctrl-9>) 

<Ctrl-S>*19 Moves cursor to upper left 
hand corner of screen (Same 
as <H0ME>) 

<Ctrl-T>*20 Deletes character to the 

left of the cursor--In COMAL 
2.0 only, when left border 
is encountered, deletes 
character immediately under 
the cursor (Same as <DEL>) 

<Ctrl-U> 21 Toggles between Graphics 
mode function key 
definitions and Edit mode 
function key definitions 

<Ctrl-V> 22 Sets text background and 

border to blue, text cursor 
to white 

<Ctrl-W> 23 Sets text background to 

light grey, text border to 
dark grey, cursor to black 

<Ctrl-X> 24 Changes text border to color 
specified by the following 
<Ctrl-number> or <C=-number> 
color key 

More ► 
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Control Key Values - continued 


II 


KEY / ASCII / FUNCTION _ 

<Ctrl-Y> 25 Changes text background to 
color specified by the 
following <Ctrl-number> or 
<C=-number> color key 

<Ctrl-Z> 26 Makes the current text 
background, border, and 
cursor colors the default 

<Ctrl-:> 27 ??? (Escape code?) 

<Ctrl-\>*28 Changes cursor color to red 
(Same as <Ctrl-3>) 

<Ctrl-;>*29 Moves cursor one position to 
the right (Same as 
<CRSR-RIGHT>) 

<Ctrl- 30 Change cursor color to green 

up-arrow> (Same as <Ctrl-6>) 

<Ctrl-«>*31 Changes cursor color to blue 
(Same as <Ctrl-7>) 

(BASIC and COMAL 0.14 users can make use 

of the features marked by an asterisk.) 


The following control codes should be 

familiar to all since they are the same 

as in BASIC 2.0 and COMAL 0.14: 

KEY / ASCII / FUNCTION _ 

<Ctrl~l> 144 Changes cursor color to 
black 

<Ctrl-2> 5 Changes cursor color to 
white (Same as <Ctrl-E>) 

<Ctrl-3> 28 Changes cursor color to red 
(Same as <Ctrl-\>) 

<Ctrl-4> 159 Changes cursor color to 
cyan 


KEY / ASCII / FUNCTION _ 

<Ctrl-5> 156 Changes cursor color to 
purple 

<Ctrl-6> 30 Changes cursor color to 
green (Same as <Ctrl- A >) 

<Ctrl-7> 31 Changes cursor color to 
blue (Same as <Ctrl-=>) 

<Ctrl-8> 158 Changes cursor color to 
yellow 

<Ctrl-9> 18 Turns reverse mode on (Same 
as <Ctrl-R>) 

<Ctrl-0> 146 Turns reverse mode off 
Further references: 

ASCII Conversion In COMAL 2.0, COMAL 
TODAY #9, page 19 

Displayed Codes In COMAL 2.0, COMAL 
TODAY #9, page 20 

Display Key Values, COMAL TODAY #9, 
page 21 

Function Keys, COMAL TODAY #8, page 33 
Character Codes, COMAL TODAY #8, page 61 
Character ROM, COMAL TODAY #6, page 37 
COMAL 2.0 Auto ASCII Conversion, COMAL 
TODAY #6, page A0 

Case Lock & Unlock, COMAL TODAY #6, 
page 41 

Quote Mode Control Characters, COMAL 
TODAY #6, page 49 

Special CHR$ Values, COMAL TODAY #4, 
page 37 

Cartridge Graphics and Sound, page 63 
Cartridge Tutorial Binder, Appendix D, 
page 285 

Commodore 64 Programmers Reference 
Guide, page 93 

Commodore 64 Programmers Reference 
Guide, Appendix C, page 379 
Commodore 64 Users Guide, Appendix F, 
page 135 g 
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Fix Disk Errors 


by David Stidolph 

It’s late at night, you’ve been working 
on your "ultimate" data base program 
till you get it just right. The power 
goes off, but your not worried, you’ve 
been making backups of your program 
every 15 minutes like you’re supposed 
to. This time, however, when you go to 
reload your last version, the program 
never loads because the disk drive has 
reported a READ ERROR. Don’t panic 
(yet), just run the following program 
(the program is also on the 2.0 side of 
Today Disk #11). If the error is one of 
the two most common on Commodore disk 
drives (22, checksum error of the data 
block, or 23, data block ID error) this 
program can fix it. 

The program first checks every sector on 
each track and makes a note of any 
errors. Once the entire disk has been 
checked, it displays a map of all errors 
and begins to correct any bad, but 
repairable sectors. 

Disk errors can be broken down into two 
groups, repairable and non-repairable. 
Repairable errors are those which 
involve corrupted data, and not 
alignment or "hardware" problems. 
Corrupted data in a sector means either 
the checksum is bad (which is fine) or 
the information has been changed (this 
is not so fine). It is even possible 
that the first two bytes which point to 
the next track and sector are bad (this 
is a disaster). This program can correct 
the sector so that it will no longer 
report an error, but the information in 
the sector may be corrupted from what it 
was supposed to be originally. If the 
track and sector numbers were altered, 
you will have to use a "disk editor" to 
correct them. 


// delete "correct’disk" 

// save "correct’disk" 

// by David Stidolph 

// 

USE system 
textcolors(0,0,7) 

PAGE 

PRINT CHR$(14) 

PRINT "This program will"; 

PRINT "cycle through" 

PRINT "ell sectors on each"; 

PRINT "track, check" 

PRINT "for errors and attempt”; 

PRINT "to recover" 

PRINT "bad sectors." 

PRINT 

PRINT "Please insert disk and"; 

INPUT "press RETURN ": dummy$ 

PRINT 

PRINT "This test takes 2-3 minutest" 

PRINT "Please wait." 

PRINT 

TRAP 

MOUNT 

HANDLER 

e:=recover’block(18,0) 

IF eol THEN 

PRINT "Cannot work on this disk!!” 

STOP ERRTEXT* 

END IF 
ENDTRAP 
DIM error(35,0:21) 
disk’errors(error(,)); show’disk 
FOR trk#:=l TO 35 DO 
FOR sec#:=0 TO max’sector(trk#) DO 
IF error(trk#,sec#)=4 OR error(trk#,sec#)=5 THEN 
textcolors(-l,-l,13) 

PRINT AT 25,1: "Attempting to"; 

PRINT "recover TRACK";trk#; 

PRINT "Sector" ;sec#, 

error(trk#,sec#):=recover’block(trk#,sec#) 
show’disk 
END IF 

ENDFOR sec# 

ENPFOR trk# 
textcolors(-l,-l,13) 

PRINT AT 25,1: "Test done —"; 

PRINT "Press RETURN to continue", 

WHILE KEY»0”"13"" DO NULL 
PAGE 

END "End of test!" 

// 

FUNC recover’block(trk,sec) CLOSED 
IMPORT seek'block,re ad’block 
IMPORT write’block,job,max’sector 
DIM drive$ OF 4 
e:=0 

IF trk>0 AND trk<36 THEN 
max:=max’sector(trk) 

IF sec>=0 AND sec<=max THEN 
drive$:=drive’type$; buf:=0 
e:=seek'block(trk,sec,buf) 

IF e=l THEN MOfe ► 
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Fix Disk Errors - continued 


e :=re ad ’block (t rk ,sec ,buf) 

IF e=4 OR e=5 THEN 
e:=write*block(trk,sec,buf) 

END IF 
END IF 
ENDIF 
ENDIF 
RETURN e 

ENDFUNC recover’block 

// 

FUNC max’sector(trk) CLOSED 
IF trk<18 THEN 
RETURN 20 
ELIF trk<25 THEN 
RETURN 18 
ELIF trk<31 THEN 
RETURN 17 
ELSE 

RETURN 16 
ENDIF 

RETURN max 
ENDFUNC max’sector 
// 

FUNC 8eek’block(t,s,b) 

RETURN job($b0,t,s,b) 

ENDFUNC seek’block 

// 

FUNC read’block(t,s,b) 

RETURN job($80,t,s,b) 

ENDFUNC read’block 

// 

FUNC write’block(t,s,b) 

RETURN job($90,t,s,b) 

ENDFUNC write’block 

// 

FUNC job(n,t,s,b) CLOSED 
IMPORT di8k’write,disk’read 
try:=0 

disk’write(b*2+6,t) 

disk*write(b*2+7,s) 

disk’write(b,n) 

REPEAT 

try:+l 

c:=disk’read(b) 

UNTIL c<128 OR try>500 
RETURNc 
ENDFUNC job 
// 

PROC disk*errors(REF error(,)) CLOSED 
IMPORT max’sector 
OPEN FILE 2,"u8:#2/s2" 

FOR track#:=1 TO 35 DO 
max# :=max’8ector( track#) 
count#:=0; sector# :=0 
REPEAT 
count #:+l 
TRAP 

PASS "ul: 2 0 ”+STR$(track#)+" "+STR$(sector#) 
error( track# .sector#) := 1 
HANDLER 

error(track#,sector#):=ERR-218 
ENDTRAP 
sector# :+2 


IF sector#>max# THEN sector# :=1 
UNTIL count#>max# 

ENDFOR track# 

CLOSE FILE 2 
ENDPROC disk’errors 
// 

PROC show’disk 
PAGE 
USE system 
textcolors(-1,-1,13) 

PRINT" TRACK"; 
t extcolors (-1, -1,14) 

PRINT "11111111112222222222333333’’ 

PRINT" ", 

FOR x:=l TO 35 DO PRINT x MOD 10, 

PRINT 

FOR sector:=0 TO 20 DO 
IF sector<6 THEN 
textcolors(-l,-l,13) 

PRINT "SECTOR" (sector+1), 
textcolors(-l,«l,14) 

PRINT sector; 

ELSE 

textcolor8(-l,-l,14) 

PRINT USING "##": sector; 

ENDIF 

FOR track:=l TO 35 DO 
CASE error(track,sector) OF 
WHEN 1 

textcolors(-l,-l,l) 

PRINT CHR$(186), 

WHEN 4,5 
text colors (-1,-1,7) 

PRINT "+", 

WHEN 0 
PRINT " ", 

OTHERWISE 

textcolors(-l,-l,2) 

PRINT 
ENDCASE 
ENDFOR track 
PRINT 

ENDFOR sector 

PRINT ""154"",CHR$(91),""5"",CHR$(186), 

PRINT ""154"] OK ["158"+" 154"]"; 

PRINT "REPAIRABLE ["28"-" 154"] BAD SECTOR" 
ENDPROC show’disk 

// 

FUNC disk’read(addr) CLOSED 
DIM com$ OF 20 

com$:="m-r”+CHR$(addr MOD 256) 
com$:+CHR$(addr DIV 256)+"" 1"" 

PASS com$ 

RETURN ORD(STATUSI) 

ENDFUNC disk’read 

// 

PROC disk’write(addr,num) CLOSED 
DIM com$ OF 20 

com$:="m-w"+CHR$(addr MOD 256) 
com$:+CHR$(addr DIV 256)+""l"" 
com$:+CHR$ (num) 

PASS com$ 

ENDPROC disk’write §jj 
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Your RUN / POP Key 


by Len Lindsay 

Yuk! Awful screen colors! I wish I could 
change them. Now you can. Just use your 
POP key. 

Hey, what’s on that disk? But I don’t 
want to stop the program. No problem. 

Use your POP key. 

But where is the POP key? Ah, your POP 
key must have been mislabeled too. Our 
key top says RUN/STOP instead of 
RUN/POP. OK. So that’s your POP key. How 
it works is the point of this article. 

First some background. COMAL 2.0 for the 
CBM 8032 computer included a new 
keyword, INTERRUPT, to monitor SRQ line 
on the IEEE-488 bus. Few of us had IEEE 
devices that provided your program with 
SRQ interrupts so this command was 
ignored. Even so, the INTERRUPT keyword 
was included in the C64 COMAL 2.0 
cartridge and remained virtually unused. 

On July 17, 1985 we published Using the 
Interrupt Command by Jesse Knight, on 
page 62 of COMAL Today #8. Jesse 
provided a very small SETUP routine that 
caused the STOP key to create an 
interrupt. Surprisingly enough, it 
remained virtually unused even after 
this article was published. 

Two other commands have been generally 
ignored: GETSCREEN and SETSCREEN, part 
of the SYSTEM package. We included a 
demo program on Cartridge Demo Disk #2 
called "get/set’screen" illustrating 
their use. They came in handy while 
creating a HELP screen for Rod the 
Roadman on Today Disk #9. 

Meanwhile, IBM PC users enjoy (and pay 
$50 for) a cute utility program called 
SideKick, which can pop up a menu window 


and provide the user with a calculator, 
notepad, and calendar. The user pops it 
up, uses it briefly, and hits the ESC 
key. His screen then returns back to its 
original state. Users marvelled at this 
program. It became a best seller and was 
named product of the year. 

Now, as you might have already guessed, 
our neglected COMAL 2.0 commands will 
come together to provide you with a pop 
over system, just like the IBM PC users 
have (and pay $50 extra for). Only ours 
can be customized to fit exactly what 
you want. Yes, it is written entirely in 
COMAL (except for the SETUP routine) and 
is small enough to be MERGED onto any of 
your programs. Or, you can incorporate 
the POPOVER system directly into your 
program as an integrated menu system. 

To explain how the POPOVER system works, 
we will create one now, step by step. 

First, the STOP key must be redefined so 
that it will cause an interrupt when 
pressed. The SETUP procedure does this. 
Next, we want to save the starting text 
screen so that when we are done we can 
replace it. One line does this: 

getscreen(start’screen$) 

Note that start’screen$ is previously 
DIMmed for 1505 characters. Now, we can 
pop up a menu and do whatever we want. 
When done, the following line returns 
the screen as it was when we started: 

setscreen(start’screen$) 

The POPOVER system is smart. No one will 
see the menu if the graphics screen is 
active. So, if the graphics screen is 
currently displayed, it flips in the 
text screen. When done it returns the 
text screen back to its original state 

More ► 
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Your RUN / POP Key - continued 


and redisplays the graphics screen if it 
was originally active. The POPOVER 
system also clears the keyboard buffer 
as it starts and exits, and resets the 
status of the STOP key. It also turns 
off the INTERRUPT when it starts to 
avoid recursive POPs. It is turned on 
again at the end. 

The POPOVER system is entirely self 
contained. Look closely at the system. 

Notice that it is one big procedure 
called POPOVER. But inside POPOVER are 
other procedures, such as SETUP. The 
popover system could also have been 
constructed from many individual 
procedures. IMPORT would have worked 
just as well. But the advantage of 
nested procedures is that it provides 
everything in one big chunk. To see the 
entire system we can type: 

LIST popover 

You may have guessed already that this 
makes it easy to create a ready to merge 
POPOVER file on disk: 

LIST popover "pop.test" 

Use the MERGE command to add POPOVER 
to your programs. No need to 
individually MERGE each procedure in the 
system. And the system can be activated 
from any program by adding only one line 
at the very beginning of the program: 

0001 popover 

Yes, that is all you have to add to your 
program. Almost. The exception (there 
always are exceptions) is CLOSED 
procedures. Inside each CLOSED procedure 
in your program you must add this line: 

IMPORT popover 


As you create different POPOVER systems, 
start the filenames with "POP." for easy 
identification. Programs that have a 
POPOVER attached can include ".POP" at 
the end of the filename. These POPOVER 
systems are on Today Disk #11: 

POP.SKELETON 

POP.DIR 

POP.COLORS 

POP.DIR+COLORS 

The DIR system allows you to POP a 
DIRectory while a program is running (be 
careful if there are files open!). 

The COLORS system allows you to change 
the color settings of the text screen. 

Remember that SETSCREEN returns the 
original colors as well as the text. To 
get around this, change the first three 
bytes of start’screen$ (which are the 
color bytes). 

DIR+COLORS, is simply a combination of 
both the DIR and the COLOR system. 

Finally, the SKELETON system (listed 
below) is a complete POPOVER without any 
extra options. Just Q to Quit and 
<return> key to return. Use it to start 
building your own system. If everyone 
uses the same SKELETON for their POPOVER 
system, they will be compatible. The Q 
key will always mean Quit (not E for 
End, X to eXit, etc). Plus, if a user 
accidentally hits STOP, the <return> key 
will escape from the POPOVER system back 
to the program. 

An example program is also listed after 
this article. It includes the COLORS 
system. Type it in. Then issue these 
commands: 

More ► 
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Your RUN / POP Key - continued 


SAVE "example.pop" 

LIST popover "pop.colors" 

You now have a MERGEable POPOVER system 
on your disk, as well as the example 
program. Now, RUN the program to see how 
easy it works. The example program 
prints the current status of the 34 
different INQ registers. If you change 
the colors (hit the STOP, I mean POP 
key) watch the values of 1, 2, and 3. 

They keep the text screen color values. 

Final note: as it stands, the POP key 
will not work during an INPUT request. 

Can some COMALite please tell us how to 
POP during INPUT? Also, the POP menu 
always shows up when the program starts. 

Is that OK? Finally, yes, it works fine 
with user defined fonts! 


Chart of current IMQ<x> values Cl 



POP.SKELETON 

PROC popover CLOSED 

INTERRUPT //interrupt off while doing interrupt 

USE graphics 

textmode:=inq(13) 

graphmode:=inq(7) //2=multi // l=full hi-res 
IF graphmode<2 THEN graphmode:=l-inq(14) 
TRAP ESC- // 0=splitscreen 
setup 

USE system 

DIM start'screen! OF 1505 
getscreen(8tart'screen!) 

IF NOT textmode THEN textscreen 

clear'keys 

popup 

setscreen (start* screen!) 

IF textmode THEN 
textscreen 
ELSE 

IF graphmode THEN 
fullscreen 
ELSE 


splitscreen 
ENDIF 
END IF 

clear'keys // optional line 
INTERRUPT popover 

PROC popup 

col:=RND(3,15) // <«===start col 
current *row:=ItND (2,12) // «<=== start row 
// row is a function that starts at current'row 
/ / use shift * to draw menu line 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" popover menu " 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" = 

PRINT AT row,col: ""18" = 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" q = quit 

PRINT AT row,col: ""18"+--+" 

PRINT AT row,col: ""18" or <retum> key " 

PRINT AT row,col: ""18"+.+" 

REPEAT 

done’popping:=TRUE 
CASE KEY! OF 
WHEN "q","Q" 

TRAP ESC+ 

END ""14rThank You." 

WHEN ""13"" //carriage return 
RETURN 
OTHERWISE 
done'popping:=FALSE 
ENDCASE 
UNTIL done'popping 
ENDPROC popup 
// 

PROC ready 

INPUT AT 25,1,0: ""18"Press RETURN when ready": rd! 
PAGE 

ENDPROC ready 

// 

FUNC row 
current’row:+l 
RETURN current'row 
ENDFUNC row 
// 

PROC clear'keys 
WHILE KEY!>"" DO NULL 
dummyesc:=ESC //clear stop key 
ENDPROC clear'keys 

// 

PROC setup CLOSED 
TRAP ESC- // setup by jesse knight 
FOR x#:=0 TO 12 DO 
READ byte# 

POKE $c86a+x#,byte# 

ENDFOR x# 

POKE $e7e2,$6a 
POKE $c7eS,$c8 

POKE $4d,PEEK($4d) BITOR $20 
DATA $a6,$4d,$29,$08,$fD,$06,$a9 
DATA $04,$05,$4d,$85,$4d,$60 
ENDPROC setup 
ENDPROC popover 

More ► 
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Your RUN / POP Key - continued 


INQ EXAMPLE.POP 

popoYer 

PAGE 

USE graphics 

PRINT "Chart of current INQ(x) values" 

counter:=0 

LOOP 

show(counter) 

counter:+l 

ENDLOOP 

// 

PROC show (REF x) 

IF x>16 THEN x:=0 

PRINT AT x+3,1: USING "## ==> ###":x,inq(x) 

PRINT AT x+3,20:USING "## ==> ###":x+17,inq(x+17) 
ENDPROC show 
// 

PROC popover CLOSED 

INTERRUPT //interrupt off while doing interrupt 

USE graphics 

textmode:=inq(13) 

graphmode:=inq(7) //2=multi//l=full hi-res 
IF graphmode<2 THEN graphmode:=l-inq( 14) 

TRAP ESC- // 0=splitscreen 
setup 

USE system 

DIM start’screen? OF 1505 
getscreen(start’screen!) 

IF NOT text mode THEN text screen 

clear’keys 

popup 

set screen (st art ’screen $) 

IF textmode THEN 
textscreen 
ELSE 

IF graphmode THEN 
fullscreen 
ELSE 
splitscreen 
ENDIF 
END IF 

clear’keys // optional line 
INTERRUPT popover 
// 

PROC popup 

col:=RND(3,15) // <«===start col 
current’row:==RJND (2,12) // «<=== start row 
// row is a function that starts at current’row 
// use shift * to draw menu line 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" popover menu " 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" c = colors 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" q = quit 

PRINT AT row,col: ""18"+-+" 

PRINT AT row,col: ""18" or <retum> key " 

PRINT AT row,col: ""18"+-+" 

REPEAT 

done’popping:=TRUE 
CASE KEYS OF 
WHEN "c","C" 
set’colors 

st art’screen $( 1 ):=CHR$ (inq (1)) 
start’screen$(2):=CHR$(inq(2)) 


start ’screen! (3) :=CHR! (inq(3)) 

WHEN "q","Q" 

TRAP ESC+ 

END ""147"Thank You." 

WHEN ""13"" //carriage return 
RETURN 
OTHERWISE 
done*popping:=FALSE 
ENDCASE 
UNTIL done’popping 
ENDPROC popup 
// 

PROC ready 

INPUT AT 25,1,0: ""18"Prew RETURN when ready": popreadyl 
PAGE 

ENDPROC ready 

// 

FUNC row 
current’row:+1 
RETURN current’row 
ENDFUNC row 
// 

PROC clear’keys 
WHILE KEY!>"" DO NULL 
dummyesc:=ESC //clear stop key 
ENDPROC clear’keys 
// 

PROC setup CLOSED 
TRAP ESC- // setup by jesse knight 
FOR x#:=0 TO 12 DO 
READ byte# 

POKE $c86a+x#,byte# 

ENDFOR x# 

POKE 8c7e2,$6a 
POKE $c7e3,$c8 

POKE Md,PEEK(*4d) BITOR 820 
DATA 8a5,$4d,$29,$08,8f0,$06,$a9 
DATA $04,$05,$4d,$8S,l4d,$60 
ENDPROC setup 
// 

PROC set’colors CLOSED 
USE system 
USE graphics 
PAGE 
LOOP 

PRINT AT 3,1: ""18"set colors now" 

PRINT AT 6,1: "press "18" fl "146" border color" 

PRINT AT 8,1: "press "18" f3 "146" background color" 

PRINT AT 10,1: "press "18" f5 "146" text color" 

PRINT AT 13,1: "press "18" f7 "146" or "18" q "146" quit" 
CASE KEY! OF 
WHEN ""133"" 

textcolors((inq(l)+l) MOD 16,-1,-1) 

WHEN ""134"" 

textcolor8(-l,(inq(2)+l) MOD 16,-1) 

WHEN ""135"" 

textcolors(-l,-l,(inq(3)+l) MOD 16) 

WHEN ""136"","q","Q" 

EXIT 

OTHERWISE 
ENDCASE 
ENDLOOP 
ENDPROC set’colors 
ENDPROC popover ^ 
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2.0 Disk Directory Tips 


Both the CAT and DIR commands allow you 
to see a directory of the files on your 
disk in the disk drive (we will use DIR 
in this article). Type: 

DIR 

To pause the directory just press the 
SPACE bar. Press the SPACE bar again and 
the directory resumes. If you see a 
program you wish to RUN, hit the STOP 
key. Your cursor appears on the next 
line. Move the cursor up to the line 
with the program you want to RUN. Now, 
hit the F7 key and the program is first 
LOADed and then automatically RUN. 

Now, for some extra capabilities. If you 
want to just LOAD the program, but not 
RUN it, type in the word LOAD instead of 
pressing the F7 key. Then hit the 
<RETURN> key. You will get an error and 
the cursor moves on top of the letter P 
in PRG. Now just press the SPACE bar 3 
times and hit <RETURN> again and the 
program will load (CONTROL K may be 
used instead of the 3 spaces). 

If your directory is rather long, you 
can use pattern matching to have just 
selected files displayed. Here are some 
examples with explanations: 

DIR "2:" 

This is how to see the directory of a 
drive that is not the current drive. In 
this case, it was drive "2:" which is 
drive 0 of device 9. 

DIR "TEST" 

This will list the disk header info, 
only the files whose names match "TEST" 
and the number of blocks free. Normally 
only one file can have the name TEST so 


only it could match. This is a quick way 
to make sure a file is on a disk, or to 
see how many blocks are free without 
displaying all the files. 

DIR "A*" 

This will display only the files whose 
names start with A. The means ignore 
the rest of the file name while checking 
for a match. If it matches up to the * 
then it is considered a match. 

DIR "????" 

A "?" means any character can match in 
this position. This example would list 
all files that had exactly 4 characters 
in the filename. "TEST” and "AB33" would 
match. "T2" and "TESTING” would not. 

DIR "SHAP.*" 

This lists all files whose names start 
with "SHAP.". This is useful if you 
prefix the names of your files as 
recommended (see Filename Conventions). 

DIR "•=s” 

The means all the files. The "=S" 
means SEQ type only. Thus all the SEQ 
type files on the disk are displayed. 

DIR "*=p" 

Same as the previous example, except 
only PRG type files are displayed. 

You can change the current drive to be 
"2:" if you are using device 9 drive 0. 

This command will do it: 

UNIT="2:" g 
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Take Off With Os 

o ICCE's the one for you o 



Special Interest Groups— share infor¬ 
mation to help your special interest area 
grow. SICs include computer coor¬ 
dinators. teacher educators, administra¬ 
tors and special educators, and are 
planned for advanced placement in 
computer science, community colleges 
and videodisc users. The quarterly SIG 
Bulletin serves as a forum for SIG 


ICCE Committees address a variety of 
ethical and practical issues important to 
you as a computer-using educator. 

ICCE participates in computer education 
conferences throughout the world, sup¬ 
porting our state- and region-wide 
member organizations. 


information. 

Booklets and Monographs point to 
additional information on specific topics. 
ICCE Packets provide you with teacher 
training materials. Members receive a 
10% discount on all three. 
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COMAL Clinic 


FUNCTION KEY LINE ENTRY 

In COMAL 2.0 the function keys can be 
defined to assist you in entering a 
program. For instance, if you will be 
entering a lot of data statements you 
may wish to redefine the FI key. Type: 

USE system 

defkey(l,""13"DATA ") 

AUTO 

Press FI. Enter a data line as usual but 
use the FI key instead of the <RETURN> 
key at the end of each line. Notice that 
it does a return to the next line and 
also prints the word DATA for you! 

SUBSTRING SHORTCUT 

David Stidolph has discovered that a 
substring shortcut documented in IBM PC 
COMAL will also work on the C64 COMAL 
2.0 Cartridge. The proper way to specify 
a substring is to include the starting 
character and the ending character 
inside parentheses like: 

TEXT$(4:6) 

That specifies the 4th thru 6th 
characters of TEXTS. Now, if you want 
all the characters from 4 through the 
end of the string, you can use this: 

TEXT$(4:) 

Just leave off the ending character 
number after the colon (:) and COMAL 
assumes you mean the last character. If 
you leave off the starting number before 
the colon, COMAL assumes you mean the 
first character: 

TEXT$(:6) 


RECOVER A LOST FILE 

Have you ever DELETEd the wrong program 
on a disk? Well, you can recover the 
program (or data file) quite easily. 

Let’s say that I am writing a program I 
call TEST5 and I go to delete the old 
version, but type DELETE "TESTS" which 
is a very important program I worked all 
night on. I can recover TESTS by just 
doing a LOAD The disk drive 
interprets an asterisk as the last file 
accessed and doesn’t care if has been 
DELETEd. Once loaded it can be SAVEd 
again. Of course this will destroy 
whatever is in memory, but it does give 
you the ability to restore what was 
lost. 

BACK TO COMAL 

Ian MacPhedran provides this tip. If you 
often use a program which operates in 
the BASIC environment, and which wipes 
out the COMAL reboot routine (sys 
.50000), you don’t have to reset the 
machine to get back in COMAL. Simply 
SAVE this routine onto the disk once by 
the following procedure: 

Go to BASIC from COMAL 2.0. In BASIC: 

poke 43,80 

poke 44,195 

poke 45,112 

poke 46,195 

save ”comal’boot",8,0 

poke 43,1 

poke 44,8 

new 

After this, you can reboot COMAL 2.0 by: 

load "comal’boot",8,l 
sys 50000 

More ► 
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FILE TIPS 

It is very important to always close 
disk files. If you neglect to close a 
WRITE or APPEND file, it becomes what 
is called a splat file. If it is not 
closed, the Disk Operating System is 
upset. Since there is no end to the 
file, the DOS will normally not let you 
OPEN it. This is very frustrating. How 
can you fix this messed up file if you 
can’t even access it anymore? There is a 
way! When a file is opened as a READ 
file, COMAL sends the code (",r") with 
the filename to the disk drive. COMAL 
also sends (",w") for a WRITE file and 
(",a") for an APPEND file. COMAL will 
allow you to override this code that 
must be sent to the disk drive. For 
instance: 

OPEN FILE 2,"0:name,p,r" 

The ",p" is short for M ,prg" which means 
it is a PRG type file. The ",r" is short 
for ",read" which means to open the file 
as a READ file. This line will open a 
program file as if it were a data file. 

All you need to know now is that the DOS 
also accepts ",m" as a wildcard that 
matches anything - even a splat file. 

So, to read your file use: 

OPEN FILE 2,"0:name,s,m" 

This will open a sequential splat file. 

The next line will open a PRG type splat 
file: 

OPEN FILE 2,"0:name,p,m" 

While reading the file, be prepared for 
strange things to happen when it gets to 
the point where there is "no end". 


CAN YOU FIGURE THIS OUT? 

Many people have told us that playing 
with the keyboard buffer from COMAL 2.0 
did not work any more (it- worked in 
COMAL 0.14 just as it did in BASIC). 

Well, then can you explain this test? 

Just enter the procedure below, then 
issue the command: SCAN. Next type: 

TEST. When you hit return, the screen 
will clear, the word CAT prints, then a 
catalog of your disk appears. Hmmm... 

The dynamic keyboard seems to work. Now, 
remove the // in front of the END 
statement. Now try it again. Hmmm... Now 
it doesn’t work. Can you solve this 
puzzle? Let us know if you do. 

0010 PROC test 

0020 USE system 

0030 POKE 198,1 //buffer count 

0040 POKE 631,13 //key value 

0050 PAGE 

0060 PRINT AT 2,1: "cat" 

0070 CURSOR 2,1 
0080 //END "" 

0090 ENDPROC test 

CLEAR INPUT AT FIELD 

COMAL 2.0 provides you with protected 
input fields, and INPUT AT allows you to 
put a limit on the field length. 

However, sometimes you may wish to clear 
the field at the beginning 
automatically. Well, Joel Rea has 
informed us that the following lines 
will clear the INPUT AT field if issued 
just prior to the INPUT AT command: 

POKE $C866,$B1 
POKE $C867,$C7 
POKE $C7B1,147 
POKE $C865,1 ■ 
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Cl 28 80 Column Screen 


by David Stidolph 

Commodore said that their new Commodore 
128 computer system would be 100% 
compatible with existing C64 software, 
and would "lock out " the extra features 
of the C-128 while in ”64 mode”. Since 
the COMAL cartridge only runs in the C64 
mode of the C128, none of these new 
features (such as 80 column) were 
supposed to be accessible. From BASIC, 
sure. But not from COMAL! I found that 
the 80 column video chip IS accessible 
from 64 mode. Printing information on 
the 80 column screen is difficult. 

However, if you use the procedures 
listed following this article, most of 
the work will be done for you. 

SAMPLE COMAL PROGRAM 

An example COMAL 2.0 program is listed 
following this article. It initializes 
the VDC and writes the character 
definitions into its RAM (this takes a 
couple minutes). Then it clears the 
screen and displays some text. Flash, 
underline, and color changes are all 
shown. The program will also turn on the 
cursor so you can see it and allow you 
to type, change colors with the color 
keys, and try out underline, reverse, 
and blinking text. Note that the cursor 
does not show what color is selected, 
only what color the "current" attribute 
ram location is set at. 

IMPORTANT ROUTINES 

FLASH(state) 

REVERSE(state) 

UNDERLINE(state) 

ALTERNATE(state) 

These procedures "activate" or 
"deactivate" the specified attribute. As 


characters are displayed, the 
corresponding active attributes are also 
set for that character. Memory location 
2024 is used to store the current copy 
of the attributes for writing to the 
VDC. For example, FLASH(TRUE) would set 
flashing mode on. All characters printed 
from then on would be flashing (until a 
FLASH(FALSE) was issued). ALTERNATE 
specified which of the two character 
sets to use (thus characters from both 
can be on the screen at the same time). 

PRINT80(row,col,text$) 

This procedure displays the text 
contained in the third parameter (text$) 
on the 80 column screen beginning at the 
location specified by the first 
parameter (row) and the second parameter 
(col). Any active attributes (such as 
flashing or underline) are also set for 
the characters. The top left-hand corner 
of the screen is 1,1. The bottom 
right-hand corner of the screen is 
25,80. Here are some examples: 

print80(l,l,"Cursor HOME position") 
text$:="This is a sample string" 
print80(12,15,text$) 

CLEAR80 

This procedure blanks the 80 column text 
screen and turns off all attributes in 
the video RAM Active attributes remain 
unchanged at memory location 2024. 

PAGE80 

Deactivates all attributes and executes 
CLEAR80. 

SCROLL 

This procedure scrolls the screen, and 

More ► 
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C128 80 Column Screen - continued 


its attributes, up one line and blanks 
the bottom line. 

MOVECURSOR(row,col) 

This procedure moves the hardware cursor 
to the screen position specified. The 
following example moves the cursor to 
the HOME position: 

movecursor(l,l) 

SETCURSOR(first,last,mode) 

This procedure sets the cursor 
attributes. The first parameter sets 
what raster line the cursor begins on. 

The second parameter sets the ending 
raster line. The defaults are 0 and 7 (a 
block cursor). The last parameter sets 
the mode, or state of the cursor. The 
following table shows what the mode can 
be set to: 

mode:=0 // Non-blinking 
mode:=l // Cursor not displayed 
mode:=2 // Blink fast 
mode:=3 // Blink normal speed 

INITCHARS(bank,vdcset) 

This procedure writes the font set 
defined in the first parameter (0-3) 
into the VDC character set area (0-1). 

This takes a couple minutes. 

TYPE(row.col) 

This procedure emulates the keyboard 
input and screen output routines of the 
Cl28. The two parameters specify where 
to put the cursor and begin the text 
display. 


// delete "c64mode80col" 

// save "c64mode80col" 

// by David Stidolph 

// 

forground:=l; back:=0 
PAGE 

PRINT "Initializing 80 column screen" 

PRINT 

PRINT "Please come back in a couple or 
PRINT "minutes and switch to 80 column screen" 
PRINT "via the RGBI cable on the back" 

PRINT "of the C128." 

PRINT 

PRINT "The 40/80 column switch on the keyboard" 

PRINT "is not used by this program." 

init80 

initchars(3,0) 

// 

color80(2,TRUE) 

page80 

// 

flash (TRUE) 
underline(TRUE) 

print80(l > 27,"This is the 80 column screen!") 

flash(FALSE) 

underline (FALSE) 

// 

color80(3,FALSE) 
row:=2 

DIM text$ OF 80 
WHILE NOT EOD DO 
READ textl$,text2$ 
text$:=textl$+text2$ 
row:+l 

prin t80(row, 1, text $) 

ENDWHILE 
color80(7,TRUE) 
print80(row,15," ") 
movecursor(row,15) 
setcursor (0,7,3) 
type(row,15) 

// 

DATA "This text is being printed by the COMAL" 
DATA " cartridge and it does it very well." 

DATA "Soon we may have a very fast machine" 
DATA " language package to do this" 

DATA "and will make output to this" 

DATA " type of screen easy." 

DATA // blank line 

DATA "80 column output will not affect" 

DATA " the normal 64 either!" 

DATA "(of course nothing would be printed" 

DATA " on the screen)" 

DATA 

DATA "Feel free to type on this screen —" 

DATA " Most keys are active including the" 

DATA "color control keys and the function keys" 
DATA "." 

DATA 

DATA "FI) Reverse On 
DATA "F2) Reverse Off 
DATA "F3) Underline On 
DATA "F4) Underline Off " 

More ► 
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DATA ”F5) Flash On 

DATA "F6) Flash Off 

DATA "F7) Increment Background color"," 

DATA 

DATA "The cursor ","=>" 

// 

PROC set(reg,num) 

POKE $d600,reg 
POKE $d601,num 
ENDPROC set 

// 

PROC setw(reg,addr) 
set(reg,addr DIV 256) 
set(reg+l,addrMOD 256) 

ENDPROC setw 

// 

PROC init80 CLOSED 
IMPORT set 
count :=0 

WHILE NOT EOD DO 
READ num 
set(count,num) 
count :+l 
END WHILE 
POKE 2024,%00001111 
// 

DATA 126,80,102,73,39,224,25 
DATA 32,252,231,160,231,0,0 
DATA 0,0,0,0,0,0,16,0,120,232,32 
DATA 64,240,0,47,231,0,0,0,0,125 
DATA 102,245 
ENDPROC init80 
// 

PROC print80(row,col,text$) CLOSED 
IMPORT set,setw 
row:-l; col:-l 
address:=row*80+col 
color:=address+4096 
• num:=LEN(text$) 

FOR x:=l TO num DO 
char:=ORD(text$(x)) 

IF char>63 THEN char:-64 
IF char>128 THEN char:-64 
print * at (address+x-1 ,char) 
print , at(color+x-l,PEEK(2024)) 
ENDFOR x 
// 

PROC print’at(addr,c) 
setw(18,addr) 
set(31,c) 

ENDPROC print'at 
ENDPROC print80 
// 

PROC movecursor(row,col) CLOSED 
IMPORT 8et,setw 
row:-l; col:-l 
address:=row * 80+col 
setw(14,address) 

ENDPROC movecursor 

// 

PROC setcursor(first,last,mode) CLOSED 
// mode=0 => non-blinking 
// mode=l => cursor not displayed 


// mode=2 => blink fast 
// mode=3 => normal blink 
/ / first=start raster line for cursor 
// last=last raster line for cursor 
IMPORT set,setw 
num:=mode*32+first 
set(ll,last) 
set(10,num) 

ENDPROC setcuraor 

// 

PROC scroll 
set(24,128) 

FOR row:=0 TO 21 STEP 3 DO 
setw(l8,(row*80)) 
setw(32,((row+l)*80)) 
set(30,240) 

setw(18,(row*80)+4096) 

setw(32,((row+l)*80)+4096) 

set(30,240) 

ENDFOR row 
set(24,0) 
setw(18,24*80) 
set(81,32) 
set (30,79) 

setw(18,24*80+4096) 

set(31,PEEK(2024)) 

set(30,79) 

ENDPROC scroll 

// 

PROC dear80 
FOR pag:=0 TO 7 DO 
setw( 18,pag*256) 
set(31,32) 
set(30,0) 

ENDFOR pag 

color:=PEEK(2024) MOD 16 
FOR pag:=16 TO 23 DO 
setw(18,pag*256) 
set (31, color) 
set(30,0) 

ENDFOR pag 
ENDPROC clear80 
// 

PROC page80 

flash(FALSE); underline (FALSE) 
alternate (FALSE); reverse (FALSE) 
clear80 

ENDPROC page80 

// 

FUNC attributes 
RETURN PEEK(2024) 

ENDFUNC attributes 

// 

PROC flash(state) CLOSED 
old:=PEEK(2024) BITAND %11101111 
POKE 2024,old BITOR (state>0)*16 
ENDPROC flash 
// 

PROC underline(state) CLOSED 
old:=PEEK(2024) BITAND 9611011111 
POKE 2024,old BITOR (state>0)*32 
ENDPROC underline 

11 More ► 


Page 28 - COMAL Today #11, 6041 Monona Drive, Madison, WI 53716 



C128 80 Column Screen - continued 


PROC reverse(state) CLOSED 
old:=PEEK(2024) BITAND %10111111 
POKE 2024,old BITOR (state>0)*64 
ENDPROC reverse 
// 

PROC alternate(state) CLOSED 
old:=PEEK(2024) BITAND 9S01111111 
POKE 2024,old BITOR (state>0)*128 
ENDPROC alternate 

// 

PROC color80(color,intensity) CLOSED 
clr:=(color MOD 8)*2+(intensity<>0) 
old:=PEEK(2024) BITAND %11110000 
POKE 2024,old+clr 
ENDPROC color80 
// 

PROC initchar8(bank,ydc8et) CLOSED 
IMPORT set,setw 
FOR pag:=32 TO 63 DO 
setw(l8,pag*256) 
set(31,0) 
set (30,0) 

ENDFOR pag 
USE font 
DIM c$ OF 8 
FOR char:=0 TO 255 DO 
getcharacter(bank,char,c$) 
address:=8192+char* 16+vdcset*4096 
FOR raster:=0 TO 7 DO 
8etw(18,addre88+raster) 
set(31,ORD(c$(raster+l))) 

ENDFOR raster 
setw(l8,address+8) 
set (31,0) 
set (30,7) 

ENDFOR char 
ENDPROC initchars 
// 

PROC type(row,col) 

DIM c$ OF 1 
LOOP 
c$:=KEY$ 

CASE c* OF 

WHEN ""13"" // RETURN 
row:+l; col:=l 
WHEN" ""19"" // HOME 
row:=l; col:=l 

WHEN ""Mr" // CLR/HOME 
row:=l; col:=l 
page80 

WHEN ""145"" // CRSR up 
row:-l 

WHEN ""17”" // CRSR down 
row:+l 

WHEN ""29"" // CRSR right 
col:+l 

WHEN ""157"" // CRSR left 
col:-l 

WHEN -"18"",""133"” // REVERSE on 
reverse(TRUE) 

WHEN »-i46"",""l37"" // REVERSE off 
reverse(FALSE) 

WHEN -20”" ,""148"" // del&inst 


NULL // Sorry! Not implemented 
WHEN ""134"” // underline on 
underline(TRUE) 

WHEN ""138"" // underline off 
underline(FALSE) 

WHEN ""135"" // flash on 
flash(TRUE) 

WHEN ""139"" // flash off 
flash(FALSE) 

WHEN ""136"" // increment background 
back:+l; back:=back MOD 16 
set(26,forground*16+back) 

WHEN ""140"" // increment forground 
forground:+l; forground:=forground MOD 16 
set(26,forground* 16+back) 

WHEN ""5"" 
color80( 7,TRUE) 

WHEN ""28"" // RED 
color80(4,FALSE) 

WHEN ""30"" // Green 
color80(2,FALSE) 

WHEN ""31"” // Blue 
color80( 1 .FALSE) 

WHEN ""144"" // Black 
color80(0,FALSE) 

WHEN ""156"" // Purple 
color80(5,FALSE) 

WHEN ""158"" // Yellow 
color80(6,TRUE) 

WHEN ""159"” // Cyan 
color80(3,FALSE) 

WHEN -129"" // Orange 
color80(3,TRUE) 

WHEN -149"" // Brown 
color80(6,FALSE) 

WHEN ""150"” // Light Red 
color80(4,TRUE) 

WHEN ""151"" // Dark Grey 
color80(0,TRUE) 

WHEN -152"" // Medium Grey 
color80(5,TRUE) 

WHEN ""153"" // Light Green 
color80( 2 .TRUE) 

WHEN -154- // Light Blue 
color80(l,TRUE) 

WHEN -155- // Light Grey 
color80(0,TRUE) 

WHEN —,—o"" // nothing 
NULL 

OTHERWISE 
print80(row,col,c$); col:+l 
ENDCASE 

IF coI<l THEN col:=80; row:-l 
IF col>80 THEN row:+l; col:=l 
IF row<l THEN row:=l 
IF row>25 THEN scroll; row:=25 
movecursor(ro w ,col) 

ENDLOOP 
ENDPROC type ^ 


COMAL Today #11, 6041 Monona Drive, Madison, WI 53716 - Page 29 





COMAL 2.0 Keywords 


compiled by Daniel W Parish 

(++ after keyword means 0.14 too) 

// ++ allows comments in a program 
//[<anything>] 

// next line scans name field 

ABS ++ gives the absolute value 
ABS(<numeric expression:*) 

PRINT ABS(standard-number) 

AND ++ logical AND 
<expression> AND <expression> 

IF number>0 AND number<100 THEN 

AND THEN — logical AND extension 
<expression> AND THEN <expression> 

IF reply$>"" AND THEN IN reply$ THEN 

APPEND ++ start at end of seq file 
OPEN [FILE] <file#>,<filename>,APPEND 
OPEN FILE 2,"test.dat"APPEND 

AT — begin at specified location 
PRINT AT<row>,<col>:[<prnt lst>][<mark>] 
PRINT AT l,l:"Section number:";num; 

ATN ++ arctangent in radians 
ATN(<numeric expression^ 

PRINT ATN(ntiml+num2) 

AUTO ++ automatic line numbering 
AUTO [<start line>],[<increment>] 

AUTO 9000 

BASIC ++ back into BASIC mode 
BASIC 
BASIC 

BITAND - bitwise AND 
<argument> BITAND <argument> 
showfbnum BITAND %00001000) 

BITOR - bitwise OR 
<argument> BITOR <argument> 

PRINT (bnum BITOR flag) 


BITXOR - bitwise XOR 
<argument> BITXOR <argument> 
bnum=(numl+num2) BITXOR %10000000 

CASE ++ multiple choice decisions 
CASE <control expression> [OF] 

CASE re ply $ OF 

CAT ++ gives disk directory 
CAT [<drive number>]:[<filename>] 

CAT "shap.*" 

CHAIN ++ load & run program on disk 
CHAIN <filename> 

CHAIN "menu" 

CHANGE -- change text -"N" means no 
CHANGE "<old text>","<new text>" 
CHANGE "background","textbackground" 

CHR$ ++ gives the character specified 
CHR$(<numeric expression^ 

PRINT CHR$(num+128) 

CLOSE ++ closes files 
CLOSE [[FILE] <filenum>] 

CLOSE FILE 2 

CLOSED ++ all proc/func variables local 
PROC <procname>[(params)] [CLOSED] 
FUNC <funcname>[(params)] [CLOSED] 
PROC newpage(headerS) CLOSED 
FUNC odd(number) CLOSED 

CON ++ continue program execution 
CON 
CON 

COPY ~ copy a disk file 
COPY <source name>,<target name> 

COPY "testy,"reportgen" 

COS ++ cosine in radians 
COS(<numeric expression>) 

PRINT COS(number) 

More ► 
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COMAL 2.0 Keywords - continued 


CREATE - creates a random file 
CREATE <filename>,<# of recs>,<rec len> 
CREATE "subscribers",500,127 

CURSOR- positions the cursor 
CURSOR <line>,<position> 

CURSOR 1,1 

DATA ++ provides data for a READ 
DATA <value>[,<value>][,...] 

DATA "Sam","Fred","Sue","Gloria" 

DEL ++ deletes lines 
DEL <line#> 

DEL <range> 

DEL <procname> 

DEL <funcname> 

DEL 460 
DEL 500-600 
DEL pause 
DEL odd 

DELETE ++ deletes a file from disk 
DELETE [<drive #>:]<filename> 

DELETE "testS" 

DIM ++reserve string/numeric array space 
DIM <string var> OF <max char> 

DIM <str array>(<index>) OF <max char> 
DIM <array name>(<index>) 

DIM nameS of 30 
DIM player$( 1:4) of 10 
DIM scores(start:max) 

DIR- same as CAT but can be in program 
DIR[<drive #>:]<filename> 

DIR "*-p" 

DISCARD — discards all packages 
DISCARD 
DISCARD 

DISPLAY - display program lines 
DISPLAY [<line#>] 

DISPLAY [<range>] [<filename>] 


DISPLAY <proc/func name> [<filename>] 
DISPLAY 

DISPLAY update’record 
DISPLAY readrec "proc.readrec" 

DIV ++ division with integer answer 
<dividend> DIV <divisor> 
result-guess DIV count 

DO ++ used with FOR and WHILE 
DO <statements> 

WHILE ok DO 

WHILE NOT error DO ask'question 
FOR x-1 TO max DO show’item(x) 

EDIT ++ list lines without indentations 
EDIT [<line#>] 

EDIT <range> 

EDIT <proc/func name> 

EDIT 20 
EDIT 500- 
EDIT pause 

ELIF ++ short for ELSE IF condition 
ELIF <expression> [THEN] 

ELIF replyS IN "AEIOU" THEN 

ELSE ++alternative IF struc statements 
ELSE 
ELSE 

END ++ halt program & show message 
END [<display message>] 

END "All Done" 

ENDCASE ++ end of CASE structure 
ENDCASE 
ENDCASE 

ENDFOR ++ end of FOR structure 
ENDFOR [<control variable>] 

ENDFOR sides 

ENDFUNC ++ end of function 
ENDFUNC [<function name>] 

ENDFUNC pause 

More ► 
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COMAL 2.0 Keywords - continued 


ENDIF ++ end of IF structure 
ENDIF 
ENDIF 

ENDLOOP - end of LOOP structure 
ENDLOOP 
ENDLOOP 

ENDPROC ++ end of procedure 
ENDPROC [<procedure name>] 

ENDPROC show’item 

ENDTRAP - end of TRAP structure 
ENDTRAP 
ENDTRAP 

ENDWHILE ++ end of WHILE structure 
ENDWHILE 
ENDWHILE 

ENTER ++ retrieve ASCII program lines 
ENTER <filename> 

ENTER "Ist.testing" 

EOD ++ End Of Data flag 
EOD 

WHILE NOT EOD DO 

EOF ++ End Of File flag 
EOF(<filenum>) 

WHILE NOT EOF (in file) DO 

ERR- returns error # within HANDLER 
ERR 

CASE err OF 

ERRFILE - returns file in use at error 
ERRFILE 

IF errfile=infile THEN 

ERRTEXTS — returns error message 
ERRTEXTS 
PRINT errtextS 


ESC ++ stop key pressed flag 
ESC 

TRAP ESC<type> 

UNTIL ESC 
TRAP ESC+ 

EXEC ++ execute a procedure 
[EXEC] <procname>[(<parameter list>)] 

EXEC show’itemf number) 

EXIT - use to leave LOOP structure 
EXIT 

IF file’existsf nameS) THEN EXIT 

EXIT WHEN - conditional exit to LOOP 
EXIT WHEN <condition> 

EXIT WHEN errors>3 

EXP ++ natural log e to n 
EXP(<numeric expression?-) 

PRINT EXP(number) 

EXTERNAL - external proc/funcs 
PROC<name>[<parm>][ EXTERNAL<filnam>] 
FUNC<name>[<parm>][ EXTERNAL<filnam>] 
PROC sum(section) EXTERNAL "ext.sum” 
FUNC rec’sizef nameS) EXTERNAL "ext.rec" 

FALSE ++ predefined value = 0 
FALSE 
ok=FALSE 

FILE ++ specifies a file is to be used 
INPUT FILE <file#>[,<rec#>]: <varlist> 
PRINT FILE <file#>[,<rec#>]: <vallist> 

READ FILE <file#>[,<rec#>]: <var list? 
WRITE FILE <file#>[,<rec#>]: <varlist> 

OPEN [FILE] <file#>,<filenam>[,<type>] 
CLOSE [[FILE] <file#>] 

INPUT FILE 2,text$ 

PRINT FILE out file,count :name$ 

READ FILE infile,sub:nameS,phoneS 
WRITE FILE 3,1:total’records 
OPEN FILE 2,"scores",RE AD 
CLOSE FILE in file 

More ► 
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FIND- finds text in a program 
FIND "<text string>" 

FIND " PROC * 

FOR ++ start of FOR loop structure 
FOR <var>:=<start> TO <end> [STEP <s>] 

FOR sides=l TO 4 DO 

FUNC ++ start of a multiline function 
FUNC <name>[(<params>)] [CLOSED] 

FUNC <name>[(<parm>)] EXTERNAL<filnam> 

FUNC odd (number) CLOSED 

FUNC call’answered EXTERNAL "ext.cl" 

GETS ~ returns # of characters 
GET$(<filenum>,<# of characters>) 
text$=GET$(2,16) 

GOTO ++ go to line after label named 
GOTO <label name> 

GOTO jail 

HANDLER - lines executed if error 
HANDLER 
HANDLER 

IF ++ start of conditional IF structure 
IF <condition> [THEN] 

IF <condition> THEN <statement> 

IF errors>3 THEN halt 
IF replyS IN "yYnN" THEN 

IMPORT - import into CLOSED proc/func 
IMPORT <identifier>[,<identifier>] 

IMPORT bold’char 

IN++ locate string 1 within string2 
<stringl> IN <string2> 

IF win$ IN guessS THEN winner 

INPUT ++ input from keyboard or file 
INPUT [<prompt>:] <var list>[<mark>] 

INPUT FILE <file#>[,<rec#>]:<var list> 

INPUT prompt$: replyS; 

INPUT FILE 2: textS 


INT ++nearest integer (less than or equal) 
INT(<numeric expressions-) 
tally:+INT( number ) 

INTERRUPT - handles interrupt requests 
INTERRUPT [<procedure names] 
INTERRUPT flasher 

KEYS ++scans keyboard & returns key typed 
KEYS 

CASE KEYS OF 

LABEL ++ assign label name to the line 
clabel names: 
quick’quit: 

LEN ++ gives the length of string 
LEN(<string expressions^ 
length=LEN( textS ) 

LET ++ assign value to variable 
:= or :+ or 
total:-loses 

LINK- loads a package from disk 
LINK <filename> 

LINK "pkg.francais" 

LIST ++ list program 
LIST [<line#>] 

LIST [<range>] [<filename>] 

LIST <proc/func names [<filename>] 

LIST 10 
LIST -33 

LIST header "proc.header" 

LOAD ++ load a program from disk 
LOAD <filename> 

LOAD "menu" 

LOG ++ natural logarithm of n 
LOG(<numeric expressions-) 

PRINT LOG(number); 

More ► 
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LOOP - start of LOOP structure OR ++ logical OR 

LOOP <condition> OR <condition> 

LOOP IF re ply S<"a" OR reply$>"z" THEN 

MAIN --leave external proc to main program OR ELSE ~ extension of logical OR 
MAIN <condition> OR ELSE <condition> 

MAIN UNTIL errors>3 OR ELSE reply$="q" 


MERGE- merge files from disk 
MERGE[<trgt strtlin>][,<incr>] <filename> 
MERGE "proc.readrec" 

MOD ++ remainder of division (modulo) 
<dividend> MOD <divisor> 
color=number mod 16 

MOUNT - initializes disk drive 
MOUNT [<drive #>:] 

MOUNT "2:" 

NEW ++ clears program from memory 
NEW 
NEW 

NOT ++ logical NOT 
NOT <condition> 

IF NOT ok THEN 

NULL ++ does nothing (no op) 

NULL 

WHILE key$="" DO NULL 

OF ++ part of DIM or CASE structure 
CASE <expression> [OF] 

DIM <stringvar> OF <max char> 

DIM <stringarray>(index) OF <max char> 

CASE monthS OF 

DIM nameS OF 30 

DIM player $( l:max) OF max’char 

OPEN ++ open a file 
OPEN [FILE] <file#>,<filenam>[,<type>] 
OPEN FILE 2 ,"d at.scores",RE AD 


ORD ++ASCII (ordinal) value of char 
ORD(<string expression^ 
a=ORD("a") 

OTHERWISE ++ default for CASE 
OTHERWISE 
OTHERWISE 

OUTPUT ++ select output location 
SELECT [OUTPUT] <type> 

SELECT "Ip:" 

PAGE - clearscreen / formfeed 
PAGE 
PAGE 

PASS ++pass command to disk drive 
PASS <disk command> 

PASS “vO" 

PEEK ++ look at memory 
PEEK(<memory address>) 
count=PEEK( 198) 

PI ~ value of pi 
PI 

PRINT "Value of PI is";PI 

POKE ++ change memory location 
POKE <memory address>,<contents> 

POKE 198,1 

PRINT ++print items to screen/printer/file 
PRINT [AT <rw>,<cl>:][USING <form>:]<itm> 
PRINT [FILE <#>[,<#>]:][USING<frm>:]<itm> 
PRINT FILE 2: textS 
PRINT USING "Total is £####.##".-total 


More ► 
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PROC ++ start of multiline procedure 
PROC <name>[(<params>)] [CLOSED] 

PROC <name>[(<parm>)]EXTERNAL"<filnam>" 
PROC readrecfnumber) 

PROC sort(name$()) EXTERNAL "proc.sort" 

RANDOM ++ random access disk file 
OPEN FILE <#>,<filnam>,RANDOM <recln> 
OPEN FILE 2,"subscribers",RANDOM 88 

RANDOMIZE - randomizes rnd generator 
RANDOMIZE[<seed>] 

RANDOMIZE 

READ ++read data from DATA line or file 
READ <var list> 

READ FILE <file#>[,<rec#>]: <var list> 

OPEN [FILE] <filenum>,<filename>,READ 
READ nameS,age 

READ FILE 2,record:name$,addr$,city$,st$ 

OPEN FILE 2,"high’score",RE AD 

REF ++parm var used in reference (alias) 

REF <var> 

PROC alter (REF textS) CLOSED 

RENAME - rename a disk file 
RENAME <old filename>,<new filename> 
RENAME "icons" "bak.icons" 

RENUM ++ renumber program 
RENUM [<targetstart>][,<increment>] 

RENUM 9000 

REPEAT ++ start of REPEAT structure 
REPEAT 
REPEAT 

REPORT - part of ERROR HANDLER 
REPORT [<err code>[,<err text>]] 

REPORT 

RESTORE ++ reuse DATA with READ 
RESTORE [<label>] 

RESTORE month’names 


RETURN ++ returns value of a function 
RETURN [<value>] 

RETURN TRUE 

RND ++ random number 
RND 

RND(<start num>,<end num>) 

IF RND>.75 THEN try’it 
dice=RND( 1,6) 

RUN ++ run program in memory or on disk 
RUN [<filename>] 

RUN 

SAVE ++ store program to disk 
SAVE <filename> 

SAVE "zombies" 

SCAN - scan for correct prgm structure 
SCAN 
SCAN 

SELECT ++ choose output location 
SELECT [OUTPUT] <type> 

SELECT "ds:" 

SELECT INPUT - change input source 
SELECT INPUT <filename> 

SELECT INPUT "bat.definefkey" 

SGN ++ -1 if neg, 0 if 0, 1 if pos 
SGN(<numeric expression:*) 
flag=SGN( number) 

SIN ++ gives sine in radians 
SIN(<numeric expression:*) 

PLOT( SIN( num),y) 

SIZE ++report on free memory 
SIZE 
SIZE 

spc$ - returns # of spaces specified 
SPC$(<number of spaces>) 

PRINT SPCS(39) 

More ► 
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COMAL 2.0 Keywords - continued 


SQR ++ gives square root 
SQR(<numeric expression>) 
root=SQR( number ) 

STATUS ++ status of disk error channel 
STATUS 
STATUS 

STEP ++increment FOR loop by this amount 
STEP <numeric expression> 

FOR x=l TO max STEP 2 DO 

STOP ++ halt program execution 
STOP [<message>] 

STOP "Now on line 350" 

STR$ - converts number into string 
STR$(<number>) 
zip$=STR$( number) 

SYS ++ transfer control to machine code 
SYS(<memory address>) 

SYS(828) 

TAB ++ print spaces to specified column 
TAB(<column number>) 

PRINT TAB(col),name$ 

TAN ++ gives tangent in radians 
TAN(<numeric expression>) 

PRINT TAN(number) 

THEN ++ part of IF structure 
THEN 
IF ok THEN 

TIME- returns time in jiffies 
TIME 

TIME <set time> 

PRINT TIME 
TIME 0 


TRACE - show how program got there 
TRACE [<filename>] 

TRACE "Ip:" 

TRAP - disable stop key 
TRAP ESC<type> 

TRAP part of ERROR HANDLER 

TRAP ESC- 

TRAP 

TRUE ++ predefined value of 1 
TRUE 

RETURN TRUE 

UNIT ++ specify device (0.14 only) 

UNIT <unit specifier 

OPEN FILE 255,"",UNIT 4,7,WRITE 

UNITS - returns the current unit 
UNITS 
UNIT$=“2:“ 

UNTIL ++ end of REPEAT loop 
UNTIL <condition> 

UNTIL reply$="q" 

USE- use specified package 
USE <filename> 

USE dansk 

USING ++formatted output 
PRINT USING <format>: <var list> 

PRINT USING "##> $###.##":x,cash(x) 

VAL - returns numeric value of string 
VAL(<numeric string>) 
age-VAL( reply$ ) 

VERIFY -check file against prog in memory 
VERIFY <filename> 

VERIFY "final" 


TO ++increment FOR variable start TO end WHEN ++ choice in CASE structure 
<start num> TO <end num> WHEN <list of values> 

FOR x=l TO 4 DO WHEN "Jan","fan" 

More ► 
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COMAL 2.0 Keywords - continued 


Statistics 


WHILE ++ start of WHILE structure 
WHILE <expression> [DO] [<statement>] 
WHILE NOT EOF (in file) DO process 

WRITE ++ write to a file 
WRITE FILE <fil#>[,<rec#>[,<offset>]]:<var> 
OPEN [FILE] <filenum>,<filename>,WRITE 
WRITE FILE 2:nameS 
OPEN FILE 3,"scores",WRITE 

ZONE ++ tab interval 
ZONE <tab interval> 

ZONE 
ZONE 5 
old’zone=ZONE 

0.14 NOTE: 

— after keyword means 2.0 only 

++ after keyword means 0.14 and 2.0 

but 0.14 may not be fully implemented. 
Check COMAL Handbook to verify. g 


COLOR DUMP BUG 

Terrance R on PlayNet provided us this 
fix to a bug he found in Ray Carters 
COLOR DUMP program on TODAY Disk #9 
(discussed on page 67 of COMAL TODAY 
#9): 

Original line: 

950 VALX=VALX*4 

Fixed line: 

950 VALX=(VALX-(VALXX*4))*4 g 


HANDBOOK BUG 

There is a mistake in the sample program 
listing for PROC on page 233 of the 
COMAL Handbook. The UNTIL line in the 
program should read: 

UNTIL word$="0" g 


David Powell sent in a short program to 
do simple statistical work on an array 
of numbers. The program is complete, but 
you could use the procedures in any 
other program without change. 


// delete "statistics/demo" 

// save "statistics/demo" 

// by David Powell 

// 

PAGE 

PRINT "This program will take a" 

PRINT "a group of numbers and w 
PRINT "calculate their average" 

PRINT "and standard deviation" 

DIM vector(100) 
n#:=0 
REPEAT 
PRINT 

PRINT "Enter element" ;n#+l 
INPUT "(-999 to stop): x 
IF xo-999 THEN 
n#:+l 

vector(n#):=x 
END IF 

UNTIL x=-999 OR n#=100 

// 

average:=mean(vector(),n#) 

PRINT 

PRINT "The average value of the" 

PRINT "values entered is";average 
PRINT 

PRINT "The standard deviation is:"; 

PRINT 8td’dev(vector(),average,n#) 

END 

// 

FUNC std’dev(REF array O.avg.m#) CLOSED 
sumsq:=0 

FOR i#:=l TO m# DO 
x:=array(i#) 
sumsq:+(x-avg) * (x- avg) 

ENDFOR i# 

IF m#>20 THEN m#:-l 
RETURN SQR(sumsq/m#) 

ENDFUNC std’dev 

// 

FUNC mean(REF array(),m#) CLOSED 
sum:=0 

FOR i#:=l TO m# DO 
sum:+array(i#) 

ENDFORi# 

RETURN sum/m# 

ENDFUNC mean g 
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2.0 Modem Questions 

Update 


by David Stidolph 

In Denmark modems are quite expensive 
and their use is regulated by the 
government. The designers of COMAL 2.0 
for the Commodore 64, UniComal ApS, 
could not test their cartridge with the 
modem. As a result, the COMAL cartridge 
does not use the correct routine when 
reading from the modem. PRINTing to the 
modem has always worked, but GETS will 
sit and wait for characters to come in, 
hanging your computer up in a wait state 
that even the STOP key will not break. 
This is not good! 

The following procedure POKE’S machine 
code into a free memory space that will 
correct this flaw in the COMAL 
cartridge. The low memory pointer to 
CHRIN (the routine COMAL uses when 
reading a byte from the keyboard or 
other device) is then changed to point 
to this new machine code. The code 
checks if COMAL is trying to get a 
character from the modem. If COMAL is, 
then the routine GETIN (used for modem 
input) is called. Otherwise the regular 
CHRIN routine is called. With this fix, 
we now have fast modem I/O. 

PROC fix’modem CLOSED 
RESTORE modem’code 
FOR address:=$c86a TO $c875 DO 
READ num 
POKE address,num 
ENDFOR address 
POKE $0324,$6a 
POKE $0325,$c8 
// 

modem’code: 

DATA $a5,$99,$c9,$02,$f0,$03 
DATA $4c,$57,$f 1 ,$4c,$3e,$f 1 
ENDPROC fix’modem * 


TEXT SCREEN SPRITES 

Question: Is it possible to show sprites 
on the text screen? - W Staneski 

Answer: Yes it is possible to show 
sprites on the text screen, but not 
using the sprite keywords. CLOCK on 
Today Disk #3 has text screen sprites. 


FREE and SIZE 

Question: Is there any way to check 
remaining memory (like BASIC’S FRE(O))? 

Answer: To check on the amount of free 
memory issue this command: 

SIZE 

In COMAL 2.0 you also have a function 
called FREE that can be accessed from 
within a running program: 

USE system 
PRINT free 

TIME and JIFFIES 

Question: Is there anyway to access 
BASICS TI (real time clock) variable? 

Answer: The COMAL 2.0 command TIME is 
equivalent to the BASIC command TI. 

COMAL 0.14 does not have this built in, 
but you can use this function (followed 
by an example of how to call it): 

func jiffies closed 

j=256*256*peek(160)+256*peek(161)+peek(162) 
return j 
endfunc jiffies 

print jiffies £ 


Reed Brown has these questions: 
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Disk Directories For 
Disk Sleeves 


COMAL Today 1 


88 Files 

0 Blocks Free: 

boot c64 comal >-< 

dir’lister 

color’funcs.l 

link-program.l 

c64 comal 0.14 information84mar 

sky’catcher.l 

color’combo .1 

link-program 


sky’catcher 

color’combo 

control .1 


create’lander.l 

hidescreen.l 

new’program.l 

>error messages< help-sprites 

create’lander 

showscreen.l 

>--< 

> file < >-< 

lander’sprites 

print’using.1 

>the following < 


print’using 

>two programs < 

comalerrors >-< 

lander 

notel7.program 

>are written in< 


micro8cribble.l 

val/demo.l 

> basic < 

>file generator< see’instructions 

microscribble 

val/demo 

> - < 


paddletest.l 

square-a3 

>do not load < 

generate errfile big’letter.l 

paddletest 

square-b3 

>them into < 


etchasketch.l 

designs 

>comal. < 

>auto boot prog< bigletter/demo.l 

etchasketch 

design4 

>.< 


light’pen.l 

square-c3 

1541backup(free) 

hi logo’emulator.l 

light’pen 

squares3 

single file copy 


koala.l 

sprite-al 


>8eq data files< dir’lister.l 

koala 

sprite-bl 


COMAL Today 2 


92 Files 

17 Blocks Free: 

boot c64 comal information84mar 

convert.l 

procl.l 

rotpac.l 

c64 comal 0.14 help-comal 

disk’get2.1 

proc2.1 

test lsf.1 


funcS.l 

put’char.l 

test’clog.l 


inside.1 

reversed 

test’cp’r.l 

>error messages< >-< 

meeting 

screen’char.l 

>-< 

| > file < >comal programs< meeting.l 

set’screen d 

>the following < 


note76.1 

sinename 

>two programs < 

comalerrors see’information 

note79.1 

sinename.l 

>are written in< 


note80-l.l 

front’page 

> basic < 

>file generator< - 

note80-2.1 

sprite’editor21 

> - < 


note81-l.l 

starsid 

>do not load < 

generate errfile 8023p’options4.1 

note81-2.1 

stars2.1 

>them into < 


note96.1 

string 

>comal. < 

>auto boot prog< benchmark64.basi 

note97.1 

stringd 

>---< 


vt-52.v4 

1541backup(free) 

hi benchmark64.1 

paged 

vt-52.v4d 

single file copy 


pens’color.l 

plexpac.l 


>seq data files< clear’collisn.l 

pentagram.l 

vecpac.l 



plot text .1 

matpacd 


COMAL Today 3 


99 Files 

50 Blocks Free: 

boot c64 comal help-comal 

getbackground.l 

paged 

spritestated 

c64 comal 0.14 help-graphics 

getborder.l 

penstate.l 

spritexcor.l 


getpend 

pie’chart’maker 

spritexsize.l 


getpencolor.l 

pie’chart’print 

spriteycor.l 

-error messages- -comal programs- 

getspritecolor.l 

plot’chard 

spritey sized 

file - - 

getturtlesize.l 

plot’char/demo 

turtlestate.l 


graphicstate.l 

polygond 

user’error/demo 

comalerrors circle.l 

heading.1 

quicksort ’number 

xcor.l 


hidescreen.l 

quicksort’string 

ycor.l 

-file generator- comardump.asm 

hidescreen2.1 

random’file/demo 



jiffiesd 

randomize Id 

-the following - 

generate errfile comal’dump.obj 

keyword’print 

randomize2.1 

-basic program - 


load’demo 

save’demo 

-is a single - 

-auto boot prog- created 

load'demo2 

save’screen d 

-drive copier. - 


load’screend 

set/readtimed 




hi currow.l 

load’screen 2.1 

setx.l 

-do not load it- 


moire.hrg 

sety.l 

- while in comal- 

-seq data files- demo 

mount .1 

thowscreen.l 



obj’load.l 

show8creen2.1 

154 lbackup (free) 

informat ion84jun drawletter.l 

obj’saved 

showsprite.l 




rUTTC ^ 

CL ® i tPCi 


I UftNTEP Ol 
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COMAL Today 4 


65 Files 

0 Blocks Free: 

boot c64 comal 

disk’protector 

gutenberg’shell 

paddle.proc 

tri’hex/demo 

c64 comal 0.14 

diak’talk’exampl 

gutenberg’ademo 

polyspirals 

two’drive’copier 

comalerrors 

disk’talk’examp2 

gutenberg’bdemo 

prime/demo 

two’drive’instru 

hi 

dodge’em 

hex’to’dec/demo 

ram’errors 

unlock’case.proc 

abc.sprite 

dump’1525 

joystick.proc 

random’plot 

wall’clock 

alphal’gen 

dump’big’epson.l 

lock’lower.proc 

rocket .sprite 

wandering 

alphal.dat 

dump’nec8023a 

lock’upper.proc 

screen’location 

>--< 

alpha 2’gen 

dump’prowriter 

logical’ops .func 

scroll ’down/demo 

>the following < 

alpha2.dat 

dumpscreen.proc 

ml’string/demo 

seq’print 

> program is < 

comal’bug-a 

dumpscreen / demo 

music’all/demo 

spirolateral 

> written in < 

comal’bug-b 

dumptext 1525.1 

num-st ring/demo 

stars 

> basic < 

dec’to’hex/demo 

dynam’data 

opt’triangle 

takeoff/demo 

>.< 

diamond 

find ’string/demo 

optical’hexagon 

tiles 

1541backup(free) 

COMAL Today 5 


89 Files 

1 Blocks Free: 

hi 

inventoryprogram 

spritecollision 

fingerk 

>—listings—< 

comalerrors 

leap’year 

turtle/demo 

fingeri 

base’convert.l 

| >comal programs< let&using’exmpl 

wage’demo 

fingerm 

clear’key s.proc 

alarm’system 

magic’fruit 

xploded’pie 

fingera 

func.modemget2.0 

boxtree 

many’pattems 

>—data files—< 

fingero 

graphs.1 

color’mix 

many’8 tars 

bigdump’nec.obj 

fingerp 

ml’procs 

connected’boxes 

ml’setup 

bigdump’nec.src 

fingerq 

save’screen.proc 

correlator 

names’printout 

dat.bwv783 

fingerr 

test’signal.l 

datacollision 

oki92’hi 

fingera 

fingers 

>—screens-< 

disk’editor 

oki92’screen’io 

fingerb 

fingert 

1st 80 kanji.hrg 

dog/cat 

pitfall’harry 

fingerc 

fingera 

2nd 80 kanji.hrg 

draw’sine’wave 

polar’daisy 

fingerd 

fingerv 

>-2.0 programs-< 

exmpl’bar’graph 

polar’long 

fingere 

fingerw 

all’at’once2 

expand’memory 

queens(ver 0.14) 

fingeri 

fingerx 

memory’peeker2.0 

grade’distribute 

recursion’exmpl 

fingerg 

fingery 

>—benchmarks—< 

guess’it 

rotated’ovals 

fingerh 

fingers 

sieve.comal.l 

hypotenuse 

show-stopper 

fingeri . 

inventory 

sieve, basic 

identify 

sign’language 

fingerj 

oki92.dump.obj 


COMAL Today 6 Front 

63 Files 

6 Blocks Free: 

hi 

dba8el4 

playnet 

>-&'functions—< 

box&circle.picl 

menu 

draw’daisy 

print *2’col’dir 

buffer.proc 

box&circle.pic2 

1 >—programs—< exp and’ram 

print’calendar 

dir.l 

comdmpmod .mem 

1525 ’screen ’dump 

find 

print’directory 

file’exists .func 

dance.dat 

aprilfool 

fit'it 

quadratic’root 

fx-80’cmds.proc 

hrg. world’map 

art 

grades 

save’color’data 

joystick.proc 

lib.dat 

boot’data’base 

label 

save’color’pokes 

load’obj.proc 

load/save.mem 

boot’fit’it 

librarian 

save’error’file 

paddle.proc 

microscope.dat 

bounce’ball. 14 

magic 

star’80 

plottext.proc 

music’player.mem 

bowling’score 

mail’label 

view’color’data 

repeat'key .proc 

phone’data 

comal’keypad. 14 

microscope’quis 

view’color’pokes 

restore’lbl.proc 

phone’dict 

create’lib’data 

mindy's-demo 

view’logo 

>—data’files—< 


data’base’mgr 

pinwheel 

>—procedures—< 

—error-mess— 


COMAL Today 6 Back 

54 Files 

34 Blocks Free: 

hi 

dog/cat 

lightpen’demo2 

ext .qtr’grade 

>—data’files—< 

| >—programs—< doodle’to’2.0 

log’program 

ext.sem’grade 

bat.0.14’to’2.0 

battleship 

draw’molecules 

magic’voice’demo 

>—procedures—< 

bat.dual’stuff 

bounce’ball 

f-key’overlay 

polar’roses 

proc.buffer 

bat.edit’prog’s 

calculart 

fit’it’2.0 

poster’down 

proc.fx-80’cmds 

bat .normal 

check’all’carts 

gemini’dir’print 

poster’right 

proc.gem’bigdump dat.logfile | 

class’labels 

grading 

shadow’letters 

proc.gemini’dump 

dat.silicon 

comal’keypad’2.0 

hex’dump 

8heH’sort 

proc.magic'voice 

hrg.front’page 

comal’clock 

label’it 

song’editor 

proc.modem’work 

sng.polka/acc 

create’silicon 

letter’shell 

song’player 

proc .olivetidump 

sng.polka/str 

disassembler 

lightpen’demol 

>—external—< 

proc.repeat’keys 
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COMAL Today 7 Front 

51 Files 

9 Blocks Free: 

boot c64 comal 

1520/0.14demo7 

1541’alignment 

txt’dump’ctl-p 

information.dat 

c64 comal 0.14 

1520/0.14demo8 

1541’alignment 1 

>—procedures—< 

move’basic-$9000 

hi 

1520/0.14demo9 

1541’alignment 2 

1520/driver.proc 

sample.dat 

menu 

1520/0.14demol0 

add'errors 

blankscreen.proc 

sample.dat-1 

>—programs— 

< 1520/0.14demoll 

comal’program 

get’protect .func 

sample, dat-2 

1520/0.14demol 

1520/0.14demol2 

eliza 

graphics, proc 

sample.dat-3 

1520/0.14demo2 

1520/0.14demol3 

freeway 

menu.proc 

sample.dat-4 

1520/0.14demo3 

1520/0.14demol4 

gemlOx’card/a 

show’error.proc 


1520/0.14demo4 

15 20orbit’circle 

input’on’input 

use'extend.proc 


1520/0.14demo5 

1520sphere’plot 

mailing’list 

>—data-files—< 


1520/0.14demo6 

1520test’print 

sort’all 

-error-messages- 


COMAL Today 7 Back 

73 Files 

19 Blocks Free: 

hi 

1520demol4 

diffequations 

perform’demo 1 

proc. restore 

>—programs—> - 

< 1520freeway 

disassembler 

perform’demo2 

proc.use’extend 

1520demol 

1520orbit’circle 

disk’editor 

polygons 

>—data-files—< 

1520demo2 

1520sphere’plot 

draw’heart 

prnt’lrg’chars 

bat.l520’40-Iist 

1520demo3 

1520test’print 

eliza 

read’directory 

bat. 1520’80-list 

1520demo4 

80’column’demo 

fmd’radical 

sound.sample 

bat.link-802dump 

1520demo5 

ahl’s-bencbmark 

flow 

test’extemal 

dat.information 

1520demo6 

batch’example 

freeway 

>—procedures—< 

font.80column 

1520demo7 

batchfile’maker 

gemlOx’card/a 

func.get’protect 

font.roundset 

1520demo8 

calculart2 

input’on’input 

func. menu 

font, typeset 

1520demo9 

check’all’carts 

joy’cursor 

func.modem’get$ 

>—external—< 

1520demol0 

cloud'flux 

k-s’stat’test 

proc.l520driver 

ext.double 

1520demoll 

comal’program 

make’data’stmts 

proc.blankscreen 

ext .make’double 

1520demol2 

convert’listing 

make’object’file 

proc.comal-802 


1520demol3 

demo.fkeys 

multiplication 

proc.load’font 


COMAL Today 8 Front 

74 Files 

6 Blocks Free: 

boot c64 comal 

music’compiler 

sound, proc 

shap.’f 

shap.harry05 

c64 comal 0.14 

music’demo 

use’sound.proc 

shap.’k’ 

shap.harry06 

hi 

seq’to’speed 

>—data-files—< 

shap.'l’ 

shap.harry07 

menu 

sidmonitor 

-error-messages- 

shap.’m’ 

8hap.harry08 

>—programs— 

< soundex 

dance’hours.dat 

shap.’n’ 

shap.harry09 

art’nouveau 

speed’to’seq 

dance’hours.sng 

shap.'o’ 

shap.harrylQ 

boot'dir’editor 

sprite’converter 

dir'editor.mem 

shap.’r’ 

shap.harryll 

colorwheel / demo 

sprite-sample4 

dutch’errors 

shap.batl 

shap.menO 

concentration 

trees 

help.dat 

8hap.bat2 

shap.menl 

create’bats 

view’koala 

information.dat 

shap.bat3 

shap.men2 

depreciation 

view’sprites 

music ’play er.mem 

shap.harryOO 

shap.queen 

directory’editor 

>—procedures—< 

musicroutine.src 

shap.harryOl 

shap.santaO 

disk’edit/protct 

comal’music .proc 

>—shape-file8-< 

shap.harry02 

shap.santal 

display’seq’file 

loadshape.proc 

shap.’a’ 

shap.harryOS 

shap.santa2 

illusion 

saveshape.proc 

shap.’c’ 

shap.harry04 


COMAL Today 8 Back 

74 Files 

17 Blocks Free: 

1 hi 

db’squash 

sprite-sample4 

proc.cdate 

dat.game'names 

>—programs—< font’sprite 

stack’space 

proc.change’dev 

dat .information 

beams 

fun’print 

star-zamara 

proc.directory 

db’data 

color’wheel ’demo 

illusion 

statistics/demo 

proc.scroll’down 

db’help.def 

concentration 

interrupt/demo 

test’disk 

proc.sirene 

db’help.lab 

create’bats 

make’data 

test’pattern 

proc.stand’dev 

db’help.rpt 

cross’reference 

make’err’english 

trees 

proc.toggle’keys 

db’name 

db’boot 

make’font 

word’game 

proc. type 

pkg.basic 

db’define 

morgage 

view’sprites 

proc .window ’down 

pkg.dutch 

db’help 

run’basic’prog 

>--procedures—< 

proc.window’up 

src.basic 

db’labels 

scroll’message 

func.convert’bas 

>—data-files—< 

>—shape-files-< 

db'maintenance 

seq’to’speed 

func.get’input 

bat .demo 

shap.batl 

db'menu 

soundex 

func.jdate 

bat.loop 

shap.bat2 

db’report 

speed’to’seq 

proc.alarm 

bat.sample 

shap.batS 

db’sort 

sprite’converter 

proc. average 

comal 
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COMAL Today 9 Front 



boot c64 comal 
c64 comal 0.14 
hi 

menu 

ml.sizzle 

comalerrors 

-copy the above- 
-files together- 
-to other disks- 
-for the sizzle - 
loader 


-seq’to’speed 

>—programs—< speed’to’seq 


1520flag’day.l4 

1520max’print.l4 

1520polygon8.14 

1541’alignment 

1541’align’l 

1541’align’2 

create’sizzle 

metamorphose 

program’3 

program’4 


56 Files 
- functions 


structure’prg’l 
structure’prg’2 
structure’prg’3 
structure’prg’4 
structure’prg’S 
structure’prg’6 
waves’key bd’demo 

- procedures - 
and 


1520/drv.proc 
decimal .func 
drive’type .func 
dump’1525.proc 
dumpl520.proc 
epson’cardg.proc 
load’sizzle.proc 
read’errors, proc 
showtable.proc 
zerotable.proc 


0 Blocks Free: 


- data file 


information.dat 


-basic program - 
fast’boot.bas 


COMAL Today 9 Back 

hi rod func.) 


81 Files 



K 


AROUND 
the CORNER 





- programs - 

1541’alignment 
clue 

convert’num 

dates&julian 

direct’con 

gemini ’colordump 

icon’maker 

infantry 

magic’paint 

oki92*test 

prog’ram 

program’1 

program’2 


roll’over’basic 
seq’to’speed 
show’errors 
single’file’copy 
speed’to’seq 
tank’animate 
viewport 
waves’demo 
yahtzee 

- functions - 

- and 

- procedures - 

func.decimal 
func.drive’type 


:.random’size 


- data file - 


dat.information 


:.8igma 

:.1520plotter 

:.convert 1 

:.convert 2 

:.convert3 

:.epson’cardg 

r.graph’keys 

r.show’names 

:.showproc 

:.trunc 

r.window'down 

:.window’up 


- packages - 

pkg.first’last 
pkg.oki92 
src.first’last 
src.oki92 

-files used by - 

- ’rod’ - 

- do not load - 

roderigue 


COMAL Today 10 Front 


92 Files 


boot c64 comal 
c64 comal 0.14 
hi 

menu 

ml.sizzle 

comalerrors 

- comal 0.14 - 

- programs - 


kilroy 

missing’letters 

num’to’word 

random’sampler 

telephone 

tutor’amnesia 

tutor’remember 

view’font/demo 

walker 


boot’tutor 
crgl4. compactor 
crgl4.filewriter 
crgl4.viewer 
curves 
design 
dvorak.14 
hi-lo’game 


- basic fonts - 

basic fonts 
set.art deco.b 
set.roman.a 
set.tech2.a 

- compacted - 

- pictures - 


compact pix 
bbs.crg 

blackcomal.crg 
Calvin, erg 
cug.color.crg 
fragile.erg 
goofys car.crg 
guard.erg 
guards, erg 
loon.erg 
natalie.crg 
t rain 1. erg 

- bitmaps 

directory 
santa.ctlO.hrg 
school room.hrg 


- functions - 

- and 

- procedures - 

bubblesort.proc 
bubblesort 2 .proc 
bubblesort3.proc 
change’8to9.proc 
compact’14. proc 
dir.proc 
exchange.proc 
load’comp.proc 
load’font .proc 
quicksort .proc 
restore'scn.proc 
select’sort.proc 
set’text .proc 
shuffle’in.proc 


0 Blocks Free: 

problems 

shap.down’rod 

shap.lt’rod 

shap.rt’rod 

shap.up’rod 

- printshop - 

- pictures 

cookie’monster 
donald’duck 
garf.head 
goofy 


2 Blocks Free: 
spritecolor.func 

- data files - 

dbase.dat 
phone.dat 
src.compactor.14 

-basic programs- 

- do not load - 

- from comal - 

backupdisk. basic 
copyfiles.basic 
single file copy 



COMAL Today 10 Back 

hi meta demo 1 phone.dat 


- comal 2.0 

- programs 


atom’happy 

boggle 

comal’ace 

compare 

copy 

copy /compare 

crg2 

cubes 

curves 

design 

font editor 

kilroy 


missing’letter 

movie viewer 

note’teacher 

num’to’word 

random’sampler 

show’drives 

spelling’game 

telephone 

text’effects 

transposition 

walker 

- data files - 

film.big iriovie 

missing.dat 

names.ran 


font .outline 
font.repton 
font .roman fancy 

- functions - 


86 Files 

pkg.bitmap 

pkg.cmon 

pkg.compactor 

pkg.eps’grph8009 

pkg.eps’grph9000 

pkg.exeq 

pkg.finchutil 

pkg.meta 

pkg.rotate 


6 Blocks Free: 
proc.get’drives 
proc.link’font 
proc.link’meta 
proc.quicksort 
proc.reveal 
proc.select’sort 
proc.shuffle’in 

- shape files - 


func.drive’type$ 
func.loadcompact 
func. random’size 
func.savecompact 
func.spritecolor 

- packages - 


- procedures - 

proc.bubblesort 
proc. bubblesort 2 
proc. bubblesort 3 
proc.change’8to9 
proc.dump’laser 
proc.exchange 


shap.comal today 
shap.house 
shap. question 
shap.tree 
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User Group 1 


57 Files 

230 Blocks Free: 

boot c64 comal 

mairiabel’hs 

c’curve 

grafl 

rnd’bounce 

c64 comal 0.14 

—procedures— 

circles’kev 

graf2 

serpent 

comal errors 

title’page.proc 

clock 

graf3 

spirolateral 

hi 

shell’sort$.proc 

cones 

graf4 

spiro. plain 

>.< 

header, proc 

curve 

graf5 

starry night 

—screen dump— 

-printer utility 

design 2 

graf6 

the’thing 

1525 screen dump 

seq’print 

design 3 

grid 

turtlestick 6 

—disk copiers— 

-demo programs— 

design 4 

hanoi 

turtlestick 7 

8d2 copier 

3d*cube 

diamond 

hilbert 

who 

sd2’copy&label 

aprilfool 

dragon 

life 


—label makers— 

beeper 

eight boxes 

p’circle 


label 

bounce 

etch-a-sketch 

percent gain 


User Group 2 


42 Files 

110 Blocks Free: 

boot c64 comal 

alpha2.dat 

circle.proc 

flowers 

polymusic 

c64 comal 0.14 

gutenberg’ademo 

title’page.proc 

four circle 

spiral’star 

comalerrors 

gutenberg’bdemo 

-programs- 

hamburger 

squiral mod 

hi 

—screen dumps— 

basic’to’comal 

hourglass 

star’power 

-feature program 

bit’print’epson 

coin flip 

lifer 

starwatch 

gutenberg’shell 

1525 pixel dump 

comal art 

lissajous 

tabby 

alphal’gen 

—procedures— 

ct. header 

new’house 


alphal.dat 

x-ycor.proc 

curvette 

nh3.exe 


alpha2’gen 

heading.proc 

find’string.demo 

pinwheel 


User Group 3 


46 Files 

109 Blocks Free: 

boot c64 comal 

nec ml dump 

-demo programs- 

circles 

shapes 

c64 comal 0.14 

ml’dump.obj 

a maz’in basic.b 

color swirl 

sin’on’the’side 

comalerrors 

—procedures— 

a maz’in comal.c 

comal promo 

spiral’cir 

hi 

colors, proc 

a maz’in simon.s 

crazy quilt 

spirograph 

-twin 1541 copy- 

—sprite files— 

angry .dragon 

fft’model 

spotty 

tddcfc 

abc. sprite 

another’moire 

key draw 

tiles 

tddcfc.inst 

rocket.sprite 

atari graphics 

music’ all' .demo 


—screen dumps— 

—utilities- 

bagel 

pascalstrekant 


pro writerdump .1 

dynam-data-8 

beep/gong.demo 

polar 


nec8023 scrndump 

84expenditures 

chris’star 

md color sqs 


User Group 4 


51 Files 

105 Blocks Free: 

boot c64 comal 

—utilities- 

arabesque2 

fanfare 

son'ofpinwheel 

c64 coihal 0.14 

dumpscreen.1525 

arabesque3 

flasher 

spiral’sqr 

comalerrors 

terminal 

arabesque4 

keno.game 

sprite’circle 

hi 

comalerror’gen 

arabesque5 

kenoboard 

8 tar wars 


—procedures— 

arabesque6 

name game 

supersketch 

—applications-- 

accept’demo 

arabesque7 

perm’game 

weirdness 

-programs- 

hersh demos 

checkerboard 

print boxes 

window 

record keeper 

str$.proc 

clue 

rectan 


label-ab 

val2.proc 

comal 2.02 boot 

rectangulus 


budget 

-demo programs- 

dizzy turtle 

scale 


address 

arabesque 1 

drum 

son of moire 


User Group 5 


53 Files 

116 Blocks Free: 

boot c64 comal 

design.dat 

city’scape 

flurry 

polygoncrazy 

c64 comal 0.14 

flake.dat 

color mix 

fourier sq 

probability 

comalerrors 

e.dat 

color’pic’loader 

graphics demo 

random’show 

hi 

f.dat 

cube designer 

haiku 

readsprite / demo 

—screen dumps— 

g.dat 

dog/cat 

house 

strs retirement 

neccomaldump 

-demo programs- 

dot.and.line 

kaleidoscope 

therapy 

txt.screendump.l 

arabesque8 

drawsh ape. demo 

moon phase 

turtle8tick8 

—functions- 

arcs.demo. 

drumette 

moving’turtle 

>load from basic 

asc.func 

card’dealer 

envelope’print 

music’synth’eric 

midwesterm 4.0 

scr2petsci.func 

circle’maker 

fast’circle 

pauls math’add 


—data files-— 

circle2.demo 

fillbox 

poly’circles 
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jftKCHXND 
the CCKNSK 
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A MOV 

BXPU1 

CJQX 

DKRY 

CLSZ 

FMT 

GNU 


AS 

A 

B 

C 



User Group 7 

boot c64 comal microscope.dat 
c64 comal 0.14 >—education- 


—error-mess— boot guea 

hi chill 

>—data files—< geometry 

>-do not load—< grades 

adv guess it humidity 

amort microscop 

guess it perfect m 

guess it inst >-ga 

language notes battleshi] 


>—education—< 
boot guess it 
chill 

geometry 


microscope quiz 
perfect numbers 

>-games-< 

battleship 


bounce'ball 

codemaker 

dots 

mastermind’word 
score keeper 
> - applications- < 
biweekly savings 
bowling score 
college ed savin 
find 

gemlOx’lister 


User Group 8 (England) 

bootcomal demo’insert’sort 

c64 comal 0.14 insertion’sort .1 i 

em introd’quicksort 

comalerrors demo’quicksort los 

- quicksort’vert .1 du 

education sort’timer’prg du 

- md’name$’1000 up 

demo’select’sort demo’bin’search thi 

selection’sort.l binary’search ge< 

demo’bubblesort for’loop’part’l 

bubblesort.l for’loop’part’2 


utilities 


load’dump’epson 

dump’epson 

dump’mps801 

uplots.l 

three’d.l 

geometry. 1 


55 Files 
loan 

loan’chart 
value of investm 

>-demos-< 

2’8ine 
art’color 
beep’2 

daisy color demo 
fast’rectan 
green boxtree 
obells 


filing 

1541 database 

engineering 

section 

reliability 

instructions 


7 Blocks Free: 
one’more’circle 
ovals 
pinwheel 
polar daisy 
quad 
rainbows 
rotated ovals 
spirograph’new 
star 80 

tangent circles 
yarn’art’2 


11 Blocks Free: 
read’about’disk 
about’disk 
file’to’print 
letter 

vl.l 06/02/85 


database 




User Group 9 Fro.it (COD) 

boot cod boot data base waves 

go dump.1525.big bunny 

title simulate playnet clavier 

«< programs »><< comal 2.0 »>notes 
<« basic >» mail’list small note 

doodle loader joy cursor garfield 

nutcracker <print shop pix> odie 

ravics term shell garf.head 

« comal 0.14 » palm << data files » 


User Group 9 Back (COD) 

menu table of content your niche 

articles colin does sf 1541 tips 

language flash april preview 

mainmenu moving up to 2.0 commodore ecks 

prg’inst on balans chair directory one 

programs open letter directory two 

sig’news party quiz other groups 

standard playnet part 1 our group 

advertis playnet part 2 our library 

help cod randomthoughts our newsletter 

want’ads wild cards our officers 


41 Files 1 Blocks Free: 

« don’t load » nutcr3 
-machine lang nutcr4 


load/save.mem 

music.dat 

player.obj 

hrg.cover 

data’base’mgr 

dbasel4 

nutcr2 


52 Files 
prez page 
to n/1 editors 
butterfield tape 
capt comal visit 
comal classes 
hooking in 
logo & pilot 
playnet 

user group disks 
vie 20 list 
data base inst 


nutcr4 

<< doodle pix » 
ddcomal calvin 
ddcabbage patch 


1 Blocks Free: 
doodle loader 
dump.1525.big 
joy cursor 
mail list 
nutcracker 
print shop pix 
ravics’term 
simulate’playnet 



7Y»F 


I 


TTTfT 


































User Group 10 

boot comal load/save.mem 

c64 comal 0.14 mirrow.dat 
hi phone data 

menu txt.terml4.inst 


84 Files 


- comal 0.14 - 

- programs - 


- utilities - 


5 Blocks Free: 

sunflake 

yam’art'3 


- applications - 


data files ~ 


—procedures— 


- Idon't load! - 

- enter only - 



directory 
dump.nec 
spi-main 
alphal.dat 
e & jim v.hrg 
hrg.air force 

disk'get'improv 

plotter.procs 

two'tone.proc 

colr’bar.proc 

val.lp.proc 

min'max.func 



User Group 11 (2.0) 

- programs - 

- do not load - 

bitmapdoodle&2.0 
color'hanoi 
plot'a’function 
roman'numerals 
the'memory'game 

- music and - 

dat.bwv779 
dat.bwv781 
dat.bwv783 
dat.bwv786 
dat.bwv794 
dat.bwv801 
mem.raster 





aizzy turuiv 

drawto 

kaleidoscope 

1520draw’hou8e 
kaleidoscope 1520 

raster’seanner 

sampler 

-external proc - 
- examples - 


- datafiles - 


code trainer 
drunkardwalk 
invoicer 
linear’regressn 
nursery libs 
phone log 
pulse rate 
rhyming speller 
sieve'eratosthe 
sim’equations 
sundial 
terminal.14 


dsp. circles 
dsp.hobie 
d8p.hobie2 
dsp.jane 
dsp.my'moire 
dsp.turtlejoy 
dsp.turtlejoy2 
dsp.wild 
ext.circles 
ext.hobie 
ext.hobie2 
ext .jane 
ext.my'moire 
ext .turtle joy 
ext. turtle joy 2 
ext .wild 

-2.0 accounting- 
- system - 


find'load'addr 
load’color’8cm 
mirrow writer 
pi090 char edtr 
print show.nec 

- graphics fun - 


main'program 


Programmers Paradise 


boot c64 comal 
c64 comal 0.14 
hi 

menu 

ml.sisEle 

comalerrors 

- comal 0.14 - 

- programs - 

aim 

crgl4.viewer 

curves 

depreciation 

design 

freeway 

illusion 

microscope’quiz 


Newsletter 

compare-chart 

what-is-comal 

questions-all 

letters-all 

newsletter 

schools 

look’back 

real'beginner 

copyfiles 

backupdisk 


missing'letters 

pi ay net/quantum 

random'sampler 

8tructure’prg'l 

structure'prg'2 

structure'prg’3 

structure'prg’4 

structure’prg'5 

8tructure'prg’6 

telephone 

view’font/demo 

walker 

-all files that- 
-follow cannot - 
-be loaded from- 
comal 


Articles 

double'disk 

filename-conv 

how'to’type’in’p 

comalinschool 

toplObooks 

how’to’start 

how’to’do’it 

missing, article 

missing, list 

phone, article 


- data files - 

- do not load - 

micro8cope.dat 
missing.dat 
names, ran 
paradise.txt 
phone.dat 
programn ames.dat 

-character sets- 

basic fonts 
set.art deco.b 
set .roman, a 
8et.tech2.a 


-the following - 

- requires the - 

- 1520 plotter - 

formatter. 1520 
sunflake. 1520 


art 

dots.game 
koala doodler 
queens 

son o spirograph 
spirograph 


96 Files 
-copy the files - 
-below to a new- 
- disk - 


-master program- 


main menu 


- sub-programs - 


comal user group 
6041 monona drv. 
madison,wi 53716 
(608)222-4432 


1 Blocks Free: 

cardv85 

categories 

expnames 

hg85 

inc85 

incnames 

jb85 

post 8 5 

year’names 


create, category s 
do'posting 
expense'record 
income'record 
init'expense 
ini t'income 
init'post 

- data files - 


- the above - 

- files should - 
-be transferred- 

- together - 


86 Files 
- pictures - 


1 Blocks Free: 
copyfiles.basic 


compact pix 
Calvin, erg 
chip.erg 
fragile.crg 
helo.crg 
loon .erg 

-the following - 

- two programs - 

- can copy the - 

- disk or just - 

- single files - 

-basic programs- 


-for more info - 

- send sase to - 

- comal users - 

- group, usa - 

- 6041 monona 

- drive #202 - 

- madison, wi - 

- 53716 - 

-(608)222-4432 * 


- compressed - backupdisk.basic 


phone.list 

walker.article 

walker.list 

aim.article 

aim.ppc 

design.article 

design.list 

copyfiles-new 

book-text 

quotes 


49 Files 

ratings 

valgol 

ifthen 

get 

ho w't o'draw-prt 1 

how'to'draw-prt2 

finding'drives 

questionslO 

expert'system 

metathink 


10 Blocks Free: 

early'notes 

questions9 

europe 

question89b 

languages 

beginning'0.14 

strings 

questions 

wp-files 
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Utility Disk 1 

boot c64 comal dumpscreen/demo copy&label 

c64 comal 0.14 file’to’print dir’lister 

hi 8023p’options4 dir’manipulator 

comalerrors >—sprites-< disk’get/demo 

- abc. sprite disk’protector 

generate errfile sprite’editor file’to’screen 

ram’errors >-sound-< two’drive’copier 

>—printer-< beeper.l two’drive’instru 

dump’1525 fanfare utilities 

dump’big’epson.l music/demo view’directory 

dump’nec8023a >--disk access-< >-modem- 

dump’prowriter auto’directory terminal 


58 Files 
vt-52.v4 

>-other-< 

basic’to’comal 
color’combo 
dec’to’hex/demo 
dynam-data-8 
find’string/fast 
find’string/full 
formatter2 
hex’to’dec/demo 
-<load’screen2.1 
pie’chart ’maker 


1 Blocks Free: 
print’seq’files 
quicksort ’number 
quicksort’string 
remove comments 
save’screen.l 
turtle/demo 
>the following < 
>program is in < 
>basic < 
1541backup(free) 


Font Disk Front 


boot 

font editor 
comal fonts 

- comal fonts - 

font.80column 
font.art deco.pb 
font, ascii 
font, colin 
font.computer 
font.d&dl 


font .fancy 
font .french 
font .gothic 
font.greek 
font.greek lang 
font.hebrew 
font, italic, asci 
font .music notes 
font .outline 
font.repton 
font.roman 
font .roman fancy 


Font Disk Back 


boot 

font viewer 
singlecopy 
information 
type old english 
edit unprotected 

- comal fonts - 

font.mirror 
font.old english 
font.pattern 
font .pet/graphic 
font .standard 
font.thin char 
font.vic20 

-comal 2.0 demo- 


program 


rotate.pkg.demo 

- do not load - 

pkg.rotate 
basic fonts 
comal fonts 

- basic fonts - 

-may be used by- 

- comal 0.14 - 
-program below - 

set.80column.b 
set.art deco.a 


Typing Disk Front 


-home word list 

-comal programs- +cr word list 

- +fg word list 

dvorak’keys +1 word, list 

dvorak.14 +p word list 

typing test +m word list 

- +xb word list 

- data files - +wv word list 

-+qjk word list 

- do not load - +yz word list 


data files - 


- do not load - 


Typing Disk Back 

hi - do not load 


font.round 
font.russian 
font.san quentin 
font.script 
font.streamline 
font, tech 1 
font, tech 2 
font.thick chars 
font.thin europe 
font, type 
font.typeset 
font.underline 


set.art deco.b 
set .colin.a 
set.colin.b 
?et.computer.a 
set.computer.b 
set.d&dl.a 
set .fancy .b 
set.french.b 
set.gothic.b 
set.ital.nocur.b 
set.italic.b 
set .music note.b 
set. out line, b 
set.repton.a 
set.rom fancy.b 
set.roman, a 
set.round.a 
set.round.b 


+ word list 
misc word list 
-fnum word list 
test word list 


56 Files 
font.warbot 


10 Blocks Free: 


- multicolor - 

fonts 

font.mc.shaded 
font.me.shaded 1 
font.mc.square 

- font disk #1 - 
-copyright 1985- 

- comal users - 


90 Files 

set.sanquentin.a 
set.script.b 
set.streamline.a 
set.techl.a 
set.tech2.a 
set.thick chrs.a 
set.thin europ.a 
set.thin europ.b 
set.type.b 
set. typeset.a 
set.typeset.b 
set.underlined 
set.vic20.a 
8et.vic20.b 
set.warbot.a 

- comal 0.14 - 

- font viewer - 


52 Files 
seq.keycodes 
seq.typing 

-comal package 


seq.dictionary 
seq. dvorak’hard 
seq.dvorak’soft 
seq.intro 


src. dvorak 
pkg.dvorak 


may not be 
copied or - 
placed in - 
user group 
libraries - 


5 Blocks Free: 
view’font/demo 

- font disk #1 - 
-copyright 1985- 

- comal users - 

- group,usa - 
-6041 monona dr- 

- madison, wi - 

- 53716 - 

- 608-222-4432 - 

- may not be - * 

- copied or - 

- placed in - 

- user group - 

- libraries - 


100 Blocks Free: 

- comal users - 

- group, usa - 

- 6041 monona • 

- madison, wi - 

- 53716 - 

-(608)222-4432 * 


tuvwxyz 


-comal program - ab 

-cd 

search diet efgh 

-ijklm 

- data files - nopq 


- articles - 

seq .diet ion ary 
seq.dvorak’hard 
seq. dvorak’soft 
seq.intro 


-for more info - 
- send sase to - 


38 Files 
seq.keycodes 
seq. typing 

-for more info 
- send ease to * 


216 Blocks Free: 

- 6041 monona * 

- madison, wi - 

- 53716 - 

-(608)222-4432 - 


- comal users 

- group, usa 
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Library of Funcs & Procs 

142 Files 

278 Blocks Free: 

bootcomal.bafl 

cen.l 

heading .1 

matvec.l 

remain .1 

c64 comal 0.14 

circle* as d 

hex’str.l 

max.l 

replace’char.l 

comalerrors 

circled 

hex.l 

maxlen.l 

replace’str.l 

hi 

clearcolld 

inf.l 

metric.! 

reversed 

copy files.bas 

convert .1 

inkey.l 

min.l 

rpad.l 

control.l 

cot.l 

insertsort’str.l 

mount .1 

rtrm.l 

link’program 

created 

insert sort.1 

moved 

save'screen.l 

accept.1 

C8C.1 

ip.l 

obj’load.l 

screen’char.l 

acos.l 

curcol.l 

jiffies.1 

obj’saved 

seed 

arc’as.l 

currow.l 

joystick.l 

paddled 

select’led 

arc.l 

cursor.l 

koala.l 

paged 

set’time.l 

arcl.l 

dated 

leap’year.l 

pen’color.l 

settimed 

arcr.l 

day’of week .1 

lightpen.l 

penstated 

setx.l 

ascii.1 

day’ofyear.l 

load’screen.l 

pi.l 

sety.l 

asin.l 

deg.l 

logb.l 

play-1 

shellsort’str.l 

aspect.1 

delay.l 

lpad.l 

plot’char.l 

shellsort.l 

back’color.l 

disk’get d 

ltrm.l 

poly’as.l 

shift'wait .1 

bin’str.l 

draw.l 

lwrc.l 

poly.l 

showsprite.l 

bin.l 

easter.l 

mat add.1 

print’at .1 

shuffle’str.l 

bit’ml.l 

eps.l 

match’r.l 

put’char.l 

shuffled 

bit and.1 

expb.l 

matequal.l 

quicksort’str.l 

sid.l 

bitor.l 

fah.l 

matinvert.l 

quicksort.1 

sin2.1 

bitxor.l 

fp.l 

matmult.l 

rad.l 

spritestate.l 

border’color.l 

get.l 

mat scaled 

randomize 1.1 

spritexcor.l 

bubsort’str.l 

getspritecolor.l 

mattransp.l 

randomize2.1 

spritexsize.l 

bubsort.l 

graphicstated 

mat unit .1 

rect.l 

spriteycor.l 

Library of Funcs & Procs - continued 


spriteysize.l 

swap’strd 

turtle’size.l 

val.l 


squeezed 

swap.l 

turtlestate.l 

xcor.l 


star.l 

translated 

uprc.l 

ycor.l 


COMAL Quick & Utilities 2 

48 Files 

61 Blocks Free: 

boot quick 

boot’dir’editor 

mi’setup 

text’dum’ctl-p 

repeat’key.proc 

loadl 

comal’keypad. 14 

names’printout 

>—procedures—< 

restore’lbl.proc 

load 2 

dir’manipulator 

print’2’cordir 

buffer.proc 

saveshape.proc 

0.14 

directory’editor 

remove comments 

cat’.proc 

tod. proc 

-error-messages- 

disk’edit/protct 

sd2 copier 

joystick.proc 

wait’n’go.proc 

hi 

disk’editor 

sd 2 ’copy <fc label 

load’obj.proc 

>—data-files—< 


display’seq Tile 

seq’to’speed 

loadshape.proc 

dir’editor.mem 

1541’ alignment 

find 

speed’to’seq 

ml’procs 

help.dat 

1541’align’l 

find’string/fast 

sprite’converter 

paddle, proc 


1541 , align , 2 

find’string/full 

sprite’editor 

plot’char.proc 


Utilities 2 Back 


44 Files 

185 Blocks Free: 

> 1525 < 

nec’ml’dump 

oki92’screen’io 

dump’prowriter 

1520/0.14demo8 

dump’1525 

ml’dump.obj 

oki92.dump.obj 

> 1520 < 

1520/0.14demo9 

dumpscreen’1525 

nec’comal’dump 

> gemini < 

1520/0.14demol 

1520/0.14demol0 

pretty’printer 

bigdump’nec.src 

gemlOx’lister 

1520/0.14demo2 

1520/0.14demoll 

> epson < 

dir’print’nec 

print’calendar 

1520/0.14demo3 

1520/0.14demol2 

dual’epson’dump 

> cbm 8023 < 

bit’map’print.l 

1520/0.14demo4 

1520/0.14demol3 

fx-80’cmds.proc 

8023p’options 

> imp < 

1520/0.14demo5 

1520/0.14demol4 

> nec < 

> okidata < 

imp’dump 

1520/0.14demo6 

1520’driver.proc 

dump’nec8023a 

oki92’hi 

> prowriter < 

1520/0.14demo7 


Captain C Gets Organized 

63 Files 

131 Blocks Free: 

boot c64 comal 

disk’summary 

disk’get.l 

quicksort.1 

>the following < 

c64 comal 0.14 

dos’menu 

dual’drived 

read’dir’part2.1 

>two programs < 

comalerrors 

find’file 

file’exists .1 

read’dir .1 

>are written in< 

generate errfile 

master’maker 

get’dir.l 

read’dir2.1 

> basic < 

hi 

print’dir 

init.l 

screen.1 

> - < 

information84 j un 

print’ids 

intro.l 

seed 

>do not load < 

help-comal 

startup 

menu.l 

set’updated.l 

>them into < 

help-graphics 

update 

menu2.1 

sort’ids.l 

>comal. < 

help-sprites 

view’dir 

menu3.1 

type’ofdir.l 

>.< 

help-instruction 

>.< 

paged 

verified .1 

1541backup(free) 


>procs follow- < 

print’dir’reg.l 

>.< 

single file copy 

comp are’dir 

>.< 

print’dirlabel.l 

>end of comal < 


delete’dir 

choices.l 

printer.l 

> < 
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Auto Run 

boot c64 comal 
c64 comal 0.14 
comalerrors 
ml .sizzle 
hi 


- comal 0.14 - 

- programs - 

arabesque 
business graph 
chris's star 


Demo Disk 


clock 
clown 
color swirl 
curves 

draw diamond 
draw house 
example song 
graph equations 
graph waveforms 
graphics tutor 
gutenberg 
hilbert 
ink blot 


keno 

optical hexagon 
optical illusion 
optical triangle 
pie chart 
polyspirals 
random music 
slide show 
spirolateral 
takeoff demo 
towers of hanoi 


63 Files 
- below 


- do not load - 

abc.sprite 
alpha2.dat 
blither.hrg 
calculator.hrg 
glady.hrg 
griffin, hrg 
rocket .sprite 


send sase to - 


- comal users ~ 

- group, usa - 

- 6041 monona - 

- drive 

* madison, wi - 

- 53716 - 

-(608)222-4432 - 


- datafiles - 


-for more info 


Tutorial I 

boot c64 comal 
c64 comal 0.14 
comalerrors 
ml. sizzle 
hi 

menu 

-comal lessons - 

lesson one 
lesson two 
lesson three 


Disk 

lesson 

lesson 

lesson 

lesson 

lesson 

lesson 

— lesson 
lesson 

— lesson 
lesson 
lesson 
lesson 


seven 

eight 

nine 

ten 

eleven 

twelve 

thirteen 

fourteen 

fifteen 


lesson sixteen 
lesson seventeen 
lesson eighteen 
lesson nineteen 
lesson twenty 

- special 

- lessons 

graphics'tutor 

turtle'tutor 


66 Files 
- datafiles 
below 


do not load - 


numberfile 

studentfile 


-for more info 

- send sase to * 

- comal users 


7 Blocks Free: 

- group, usa - 

- 6041 monona - 

- drive - 

- madison, wi - 

- 53716 - 

-(608)222-4432 - 


Bricks Tutorial Front 

boot editl 

c64 comal 0.14 edit2 

hi fill 

menu frame 

turtle'menu getting started 

cursor getting started2 

cursor2 


graphics 


headings 

hello 1 

hello2 

helloS 

hello4 

helloS 

hello6 


35 Files 

inputl 

input2 

loops 

loops2 

move 

plottext 


stepsl 

steps2 

steps3 

taking control 
turns 
turtle 
turtle2 


Bricks Tutorial Back 


boot 

c64 comal 0.14 
hi 

menu 

arrays 

arrays2 


assignments 


Games Disk 1 


- comal 2.0 

- programs 


boggle 

breakout 

clue 

comal'ace 

concentration 

docking 

dog/cat 


eliza 

maze’game 

pigeons 

puzzle'game 

santa’game 

wheel'offortune 

word'game 

yahtzee 

- comal 0.14 - 

- programs - 


Slide Show Disk 1 


slide show 
directory 
moire 1.hrg 
moire2.hrg 
pattem2.hrg 


nude 1.hrg 
girl.hrg 
nude2.hrg 
spacecraft .hrg 
earring.hrg 


functions 

graphics'review 

ifl 

if2 

loops 

mod 


battleship 

bounce'ball 

clue.14 

guess'it 

hi-lo'game 

keno 

magic'fruit 
mastermind 'word 
missing'letters 
sky'catcher 


patteml.hrg 
lineftgl.hrg 
caveman.hrg 
man.hrg 
tetrad.hrg 


27 Files 

order 

output 

parameters 

procedures 

turtle'review 

variables 


55 Files 
slot'machine 

- datafiles - 

- do not load - 

dat .game'names 
dat.maze 
hrg.field 
missing.dat 
slot'sprites 


35 Blocks Free: 
—data files— 
numberfile 
studentfile 


-games disk #1 - 

- from 

- comal users - 

- group, usa - 

- 6041 monona * 

- madison, wi - 

- 53716 - 

-(608)222-4432 - 


21 Files 
snail.hrg 
pattemS.hrg 
pet room, hrg 
linefig2.hrg 
linefig4.hrg 


19 Blocks Free: 
linefigS.hrg 
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COMAL Handbook Disk 

144 Files 

199 Blocks Free: 

boot c64 comal >use enter < 

>-< 

exec 

random 

c64 comal 0.14 >-< 

abs 

exp 

read 


and 

false 

ref 


append 

file 

repeat 

>error messages< even.l 

atn 

for 

restore 

> file < fetch.l 

case 

func 

return 


chr$ 

if 

md 

comalerrors get’chard 

close 

in 

select 


closed 

input 

sgn 

>file generator< jiffies.1 

cos 

int 

sin 


data 

key! 

sqr 

generate errfile mount .1 

delete 

len 

step 


dim 

let 

tab 

>auto boot prog< odd.l 

div 

log 

tan 


elif 

mod 

then 

hi put’record.l 

else 

not 

to 


end 

null 

trap 

>seq data files< round.1 

endcase 

of 

true 


endfor 

open 

until 

information84mar control.1 

endfunc 

or 

using 

help-comal commodore’key.l 

endif 

ord 

when 

help-graphics take’in.l 

endproc 

otherwise 

while 

help-sprites value.l 

endwhile 

pass 

write 

>.< >.< 

eod 

print 

zone 

1 >comal handbookOsample progrms< eof 

printfile 

>-< 

>procs & funcs < >use load < 

esc 

proc 

>bonus programs< 

COMAL Handbook Disk - continued 


>-< file’to’print 

value/demo 

quicksort/demo 

disk’get/demo 

print’directory file’to’screen 

shift/demo 

joystick/demo 

logicarops/demo 

utilities cursor/demo 

jiffy/demo 

paddle/demo 


Structured Programming 

144 Files 

158 Blocks Free: 

boot c64 comal example3.5 

8ec8.5b 

example 12.4 

8olution4.6 

c64 comal 0.14 example3.6 

secl0.2 

examplel2.5 

solution4.7 

comalerrors example3.6b 

secl0.3 

solution3.4 

solution4.8 

hi example4.2 

seclO.4.1 

solution3.5 

solution4.9 

information84mar example4.3 

secl0.4.1b 

solution3.6 

solution4.10 

help-comal example4.3b 

secl0.4.1c 

solutions.7 

solution4.11 

help-graphics example4.5 

seclO.4.2 

solution3.8 

solution4.12 

help-sprites sec4.4 

quicksorts 

8olution3.9 

solution4.13 


example 11.1 

solution3.10 

solution4.14 

seel.5 sec4.5 

examplell.2 

8olution3.ll 

solution4.15 

seel.7 example4.7 

examplell.3 

solutions.12 

solution4.16 

8ecl.7b example4.8 

example 11.4 

solutions. 13 

solution4.17 

probl.l sec5.1 

examplell.5 

solution3.14 

solution4.18 

probl.2 example5.1 

examplell.6 

solution3.15 

8olution4.19 

probl.3 sec5.2.2 

sec 12.3.1-write 

solutions.17 

solution4.20 

probl.4 sec5.2.3 

sec 12.3.1-read 

solution3.18 

solution4.21 

probl.5 sec5.2.3b 

secl2.3. lb-write 

solutions. 19 

solution5.1 

sec2.5.1 example5.2 

sec 12.3. lb-read 

solution3.20 

solution5.2 

prob2.11 charcount.l 

secl2.3.1c-read 

solution3.21 

solution5.3 

prob3.3 example8.1 

setfile.l 

8olution3.22 

8olution5.4a 

cursor.l example8.2 

searchfile.l 

solutions.23 

solution5.4b 

sec3.2 example8.3 

validated 

solutions.24 

roulette.l 

sec3.2b example8.3b 

secl2.4-write 

solutions. 2 5 

solution8.1 

sec3.2c fig8.1 

secl2.4-read 

solution4.3 

solution8.2 

example3.3 sec8.4.1 

secl2.4-both 

solution4.4 

solution8.3 

example3.4 sec8.5 

example!2.3 

8olution4.5 

solution8.4a 

Structured Programming - continued 


solution8.4b solution8.7 

8olution8.10 

solution8.13 

>..< 

solution8.5 solution8.8 

8olution8.ll 

solution8.14 

1541backup(free) * 

solution8.6 solution8.9 

solution8.12 

solution8.15 


PET COMAL 0.14 


14 Files 

419 Blocks Free: 

comal80/0.14 evaluator.1 

recursions 

books & papers 

info 

gencbmerrors.l quicksort 

hanoi 

bounce 

remove // 

cbmcomalerrors utilities 

formatter 

disk commands 
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Packages 

softscroll64 

editor64 

startup 

-comal packages* 
- for c64 

pkg.basic 

pkg.bitmap 

pkg.buffer 


Library Front 

pkg.calchex pkg.meta 

pkg.char pkg.meta’rommed 

pkg.cmon’casbuf pkg.ml 

- pkg.cmon’rs232 pkg.oki92 

pkg.compactor pkg.printer 

pkg.demo pkg.text 

- pkg.exeq 

pkg.finchutilit -comal programs - 

pkg.first’last - 

pkg.icon labelmon 


48 Files 

1st .delink 

1st .list’package 

- copies may - 

- be made for - 

- personal use - 

only 


350 Blocks Free: 

- comal users - 

- group, usa - 

- 6041 monona - 

- madison, wi - 

- 53716 - 

-(608)222-4432 - 


-copyright 1986- 


Packages 

softscroll64 

editor64 

startup 


- comal symbol 

- file for c64 - 

c64symb 

sym.comal64 

symbs 

- macro files - 


Library Back 

- 8I 

mac. 16bit math si 
mac.branching si 


- - source code 


- commodore - src 

- compatible - src 


src.asmfix 
src.basic 
src. bitmap 


calchex 

cmon’casbuf 

.cmon’rs232 

compactor 

demo 

exeq 

.first’last 

.mccomal 

oki92 

printer 

text 


58 Files 
- source code 


126 Blocks Free: 
-copyright 1986- 


-not commodore 

- compatible - 

merlin.finchu til 

- copies may - 

- be made for - 

- personal use - 

only 


- comal users - 

- group, usa - 

- 6041 monona - 

- madison, wi - 

- 53716 - 

-(608)222-4432 - 


COMAL 2.0 Packages Disk 

20 Files 

76 Blocks Free: 

smon-comal 

c64symb.pal 

example .o 

demo 1 

symb alph 

c64symb 

symbs.mae 

example.b 

demo 2 

symb num 

symbs 

cfname demo 

errorpack.s 

proc.link’binary 

print symbs 

c64sy mb. merlin 

example.s 

errorpack.o 

link’binary demo 

show libraries 

Cartridge Demo Disk 1 

141 Files 

222 Blocks Free: 

presentation 

cos 

exec 

mount 

restore 

—copy programs- 

cursor 

exit 

not 

return 

singledrive’copy 

data 

exp 

null 

rod 

dual’drive’copy 

delete 

external 

of 

select 

-external procs- 

diml 

false 

open 

sgn 

ext.add 

dim2 

file 

or 

sin 

ext .edit 40 

dim3 

find 

ord 

spc$ 

ext .sub 

div 

for 

otherwise 

sqr 

-package- 

do 

func 

page 

status! 

pkg.francais 

elif 

get$ 

pass 

step 

-handbook prg’s- 

else 

handler 

peekl 

stop 

abs 

end 

if 

peek2 

str! 

and 

endcase 

import 

pokel 

tab 

append 

endfor 

in 

print 

tan 

at 

endfunc 

inputl 

printfile 

then 

atn 

endif 

input2 

proc 

time 

bitand 

endloop 

inputs 

random 

to 

bitor 

endproc 

int 

randomize 

trap 

bitxor 

endtrap 

interrupt 

readl 

true 

case 

endwhile 

key$ 

re ad 2 

until 

chain 

eod 

label 

reads 

usingl 

chr$ 

eof 

len 

read4 

using2 

close 

err 

let 

ref 

val 

closed 

errfile 

log 

rename 

when 

con 

errtext 

loop 

repeat 

while 

copy 

esc 

mod 

report 

writel 

Cartridge Demo Disk 1 - continued 


write2 

—data files— 

dat .random’read 

dat .visitor’read 


write3 

dat. account’list 

dat.test’loop 

dat. winners 


zone 

dat.random’input 

dat .visitor 
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Cartridge Demo Disk 2 

72 Files 

2 Blocks Free: 

all’at’once 

differentiation 

handlers 

shap.’c’ 

shap.harry07 

april’fool 

dragon 

handler4 

shap.’f 

shap.harry08 

arabesque 2 

drawing-3d 

handlers 

shap.’k’ 

shap.harryOO 

bach’music 

error trapping 

handlers 

shap.T 

shap. harry 10 

bat.commands 

font .mirror 

hilbert curves 

shap.’m’ 

shap.harry 11 

batch’copier 

font .standard 

lst.getnum 

shap.’n’ 

shap.queen 

breakout 

formatted’list 

make ’eprom’file 

shap.’o’ 

shap.santaO 

change’unit’# 

func.binary! 

moire 

shap.’r’ 

shap.santal 

create’fonts 

func.hex! 

moving’comal 

shap.harryOO 

shap.santa2 

curvel 

get/set’screen 

moving’frank 

shap. harry 01 

spiral’circles 

curve2 

graph1 

paddles 

shap.harry02 

spirolateral 

dat.bwv779 

graph2 

playscore 

shap.harryOS 

tower’ofhanoi 

dat.bwv781 

graphs 

queens 

shap.harry 04 


dat.bwv794 

handlerl 

santa’game 

shap.harryOS 


dat .screens 

handler2 

shap.’a’ 

shap.harryOS 


Cartridge Demo Disk 3 

55 Files 

2 Blocks Free: 

all’at’once2 

file’card ’maker 

showlibs 

dat.bwv786 

hrg.world’map 

—demo programs- 

graph4 

sidmonitor 

dat.bwv801 

—procs Sc funcs- 

1520 plotter 

graphs 

sound’envelope 

—font files— 

func.modem’get 

arabesque2 

graphs 

sprite’editor 

font .computer 

proc .show ’sprite 

arabesques 

koala’to’2.0 

stampsprite 

font.d&d 

—shape files— 

batchfile’editor 

picture'loader 

view’fonts 

font.greek 

shap.batO 

bin ary’counter 

playscore2 

—batch files— 

font.hebrew 

shap.batl 

check’cart ridge 

protect64 

bat.commands 

font.rooski 

shap.bat2 

curveS 

read’directory 

bat .font’cmds 

font .standard 

shap.menO 

curve4 

running'men 

—data files— 

-pictures- 

shap.men 1 

extend’color 

show’character 

dat.bwv783 

hrg.northwest 

8hap.men2 

Cartridge Demo Disk 4 

5? Files 

IS Blocks Free: 

run'me’first 

datacollision 

mps801’dump 

spiral’stars 

—procs Sc funcs- 

—demo programs- 

draw’flowers 

music’from’0.14 

starwatch 

func.binary! 

all’at’onceS 

draw’hourglass 

music’player 

three’pictures 

proc. directory 

another’moire 

draw’house 

paint’circles 

—data files— 

proc.ellipse 

auto’directory 

dual’drive'copy2 

pascals’triangle 

dat.bwv779 

proc.memorymap 

bounce 

eight'boxes 

primes 

dat.bwv781 

proc.quicksort 

cbm’to’comal 

factorial 

print’time 

dat.bwv783 

proc.repeat’key 

checkerboard 

ink’blot 

quicksort 

dat.bwv78S 

proc.st retch’x 

cones 

logo’sampler 

sierpinski 

dat.bwv794 

proc.st retch’y 

copy’seq’file 

moving'boxes 

son’of moire 

dat.bwv801 


crasy’quilt 

moving’flag 

spiral’squares 

dat.instruct ions 


2.0 Tutorial Binder Disk 

S8 Files 

16 Blocks Free: 

demoprogram 

program 13 

music 1 

batchfile’editor 

queens 

comal2.01 

program 14 

music 2 

bats 

quicksort 

program 1 

program 15 

music 3 

change unit 

screen4 

program 2 

program 16 

music 4 

copy single 40 

showlibs 

program 3 

program 17 

music 5 

count 

sidmonitor 

program 4 

program 18 

paddle game 

diamo 

dat.bwv779 

program 5 

program 19 

joystick artist 

queen, spr 

spriteeditor 

program 6 

program 20 

lightpen demo 

edit 40.ext 

c64symb 

program 7 

sprite 1 

addr list demo 

flowers 

test.obj 

program 8 

sprite 2 

random file demo 

man 

test.src 

program 9 

sprite 3 

move sequential 

move comal 

skjul og hent.l 

program 10 

sprite 4 

1520 plotter dem 

permute 

dat.bwv781 

program 11 

sprite 5 

train demo 

playscore 


program 12 

music demo 

thermometer 

primes 


Slide Show Disk 2 


21 Files 

19 Blocks Free: 

slide show 

snoopy .hrg 

des. l.hrg 

willy.hrg 

micrometer, hrg 

directory 

albert.hrg 

7-3hill.hrg 

raccoon.hrg 


spiral, l.hrg 

dollar.hrg 

music, hrg 

sincos l.hrg 


sue.hrg 

dip.hrg 

map.hrg 

watch.hrg 


sesame.st.hrg 

donald.duck.hrg 

diane.hrg 

winston .hrg 
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COMAL Sampler Disk 

67 Piles 

106 Blocks Free: 

boot c64 comal 

see’information 

print’directory 

shift /demo 

-the following - 

c64 comal 0.14 

see’instructions 

expression 

jiffy/demo 

-two programs - 

-error messages- 

logo’book Sample 

utilities 

quicksort/demo 

-are written in- 

comal errors 

snowflake 

recursions 

joystick/demo 

- basic 

-file generator- 

sprite/turtle 

formatted 

paddle/demo 

- -- 

generate errfile 

squiral 

file’to’print 

disk’get/demo 

-do not load - 

-auto boot prog- 

music 

file’to’screen 

logical’ops/demo 

-them into 

hi 

bounce 

disk commands 

—sprite images - 

-comal. 

—data files— 

sprite’designed 

c64 comal info 

lander’sprites 

>-< 

information84mar 

lander 

remove comments 

sky’sprites 

1541backup(free) 

help-comal 

help-graphics 

create’lander 
sky’falling 

see’roll/demo 
see'page/demo 

-end of comal - 

single file copy 

help-sprites 
-comal programs- 

create’sky 
read’directory 

cursor/demo 

value/demo 

-demo programs - 



Graphics Primer Disk 


63 Files 

278 Blocks Free: 

boot c64 comal 

demo 3.4 

demo 2.4.1 

circles.1 

showsprite.l 

c64 comal 0.14 

demo 4.1.a 

demo 3.1.1 

get background.1 

spritestate.l 

comalerrors • 

demo 4.1.b 

demo 3.2.1 

getborder.l 

spritexcor.l 

hi 

demo 4.2 

demo 3.3.1 

getpen.l 

spritexsize.l 

-programs- 

demo 4.3 

demo 3.4.1 

getpencolor.l 

spriteycor.l 

menu 

demo 4.4 

demo 4.1.a.l 

getspritecolor.l 

spriteysize.l 

demo 2.1 

flurry 

demo 4.1.b.l 

getturtlesize.l 

turtlestate.l 

demo 2.2 

read’sprite.demo 

demo 4.2.1 

graphics t at e.l 

xcor.l 

demo 2.3 

sprite’designer 

demo 4.3.1 

heading.l 

ycor.l 

demo 2.4 

—book listings- 

demo 4.4.1 

hidescreen.l 

-^sprite files— 

demo 3.1 

demo 2.1.1 

—procedures— 

polygon.l 

flake.dat 

demo 3.2 

demo 2.2.1 

circle 1.1 

read’sprite.proc 


demo 3.3 

demo 2.3.1 

circle2.1 

showscreen.l 


C64 Graphics With COMAL 

98 Files 

232 Blocks Free: 

boot c64 comal 

help-comal 

background 

turtlesize 

red.l 

c64 comal 0.14 

help-graphics 

clear 

sprite’aim.dat 

cyan.l 


help-sprites 

datacollision 

sprite’d at amak 

purple.1 

>--—< 

>.-< 

drawto 

sprite’aim.l 

green .1 

>error messages< 

>comal programs< fill 

rhianon.sprite 

blue.l 

> file < 

>.< 

frame 

sprite’editor21 

yellow.l 

>.< 

see’information 

fullscreen 

define 

orange. 1 

comalerrors 

see’instructions 

priority 

sprite’box.l 

brown .1 

>.< 


spriteback 

done.l 

It’red.l 

>file generator< 

hidesprite 

hideturtle 

sprite’dot .1 

dk’grey.l 

>.< 

border 

home 

shaped 

med’grey.l 

generate errfile 

setgraphic 

identify 

get’digit .1 

It’green.1 

>—.< 

settext 

moveto 

box’filled.1 

It'blue.l 

>auto boot prog< 

forward 

pencolor 

boxxy.l 

It’grey. 

>.< 

left 

plot 

text’in.1 

color’funcs.l 

hi 

right 

plottext 

box.l 

jiffies.l 

>..—< 

pendown 

spritecollisn 

paused 

spriteback-f 

>8eq data files< 

penup 

spritecolor 

triangle.1 

appendix’d 

>.< 

set heading 

spritepos 

black.l 


information84jun 

back 

spritesize 

white.l 


Modem Disk 


68 Files 

308 Blocks Free: 


-the following - 

- features - 






- comal 0.14 - 

- are public - 


midwestterm5.1 

- xmodem 

-modem programs- 

domain 

-load the first- 

term, cl 

- features the - 


-programs which- 

- file in each - 

ml mid 

- most common - 

terminal 

- load from - 

- section with - 


• -file transfer - 

vt-52.v4 

- basic 

- *,8* and run - 

- ravics term - 

- protocol and - 



- it - 

-is a compilied- 

-supports 1650 - 

- comal 2.0 - 

- they are - 


- basic program - 

- type modems - 

-modem program - 



-which features- 





-and procedure - 

- allow use of - 

- midwestterm - 

- a buffer and - 

xmodem-auto 


- certain file - 

-is a compilied- 

- automatic - 

xmodem/ autodial 

proc.modem 

- transfer - 

- basic program - 

clock 

xmodem/ml 

terminal’2.0 

- protocol’s - 

-which features- 




- and other - 

-a built in bbs- 

ravics term8.4 



Light Pen Demo Disk 7 Files 571 Blocks Free: 

lightpen’demo colors’demo proc.initpen auto’dir-lpen 

func.colorl pen’draw proc.penkey 
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2.0 Auto Save 


by Marvin Cook 

How many times have you had to change 
the version number of the first line of 
your COMAL program? For example: 

0010 // delete M programname.7" 

0020 // save "programname.9" 

Also, if you are chaining or using an 
external subroutine, the above commands 
do not work well because the calling 
program is looking for the exact name. 

The following COMAL 2.0 procedure will 
solve both problems. 

0010 // scan 

0020 // backup("save","autobackup") 

0030 PROC backup(act$,f$) CLOSED 
0040 USE system 

0050 IF LEN(f$)>16 THEN f$:=f$(l:16) 
0060 DIM fl$ OF 16 
0070 fl$:=f$+".bk" 

0080 IF LEN(fl$)=16 THEN 
0090 fl$(14:16):=".bk" 

0100 ENDIF 
0110 DELETE fl$ 

0120 TRAP 

0130 PASS "r0:"+fl$+"="+f$ 

0140 HANDLER 

0150 NULL // if no backup file 

0160 ENDTRAP 

0170 PAGE 

0180 PRINT AT 10,5: act$+"""0:",f$,"""" 
0190 PRINT AT 11,5: "CAT" 

0200 CURSOR 10,1 

0210 POKE 198,2 // causes an automatic 
0220 POKE 631,13 // list and directory 
0230 POKE 632,13 // listing 
0240 ENDPROC backup 

It can either be merged into the program 
you are developing or it can be an 
EXTERNAL procedure. 


INSTRUCTIONS FOR USE 

1. Set up the first two lines of your 
program as follows: 

10 // scan 

20 // backup("list","program name") 
or 

20 // backup("save","program name") 

2. Merge the backup procedure into your 
program or copy it to your development 
disk and define in your program as an 
EXTERNAL procedure. 

When you wish to save a backup copy of 
your developing program, erase the line 
number of line 10 and press return and 
then erase the line number of line 20 
and press return. The backup process 
will erase the previous backup and 
rename the current file as "program 
name.bk" and save the latest version. 

The only problem is that you have to 
have a version that does not have any 
structural errors or the scan command 
will produce an error. I find this a 
small price to pay. 

Better yet, have the top two lines of 
your program set up the F8 key. to do the 
SCAN and BACKUP for you. Just issue the 
commands (after the remarks) once, and 
after that the F8 key will do it all: 

0010 // USE system 

0020 // defkey(8,"" 147"scan" 13"backup("" 
save"",""name"")" 13"") //wrap line 

Now you have a "SAVE IT" key - the f8 
key. A perfect match for your new POP 
key mentioned in this issue. g| 
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COMAL 2.0 Oki Data 
Graphics Dump 


by Terry Ricketts 

This is an all in COMAL graphic screen 
dump adapted from the Gemini 10X screen 
dump program in COMAL Today #9. The 
procedure will print the multicolor 
graphics screen on an Okidata 92 (or 
similar) printer using grey shading for 
the colors. Each bit pair representing 
one color dot is printed as a 2 dot 
vertical by 4 dot horizontal pattern. 

Since the dump is written in COMAL it is 
slower than the machine code dumps. 

Terry may provide us with a machine 
language version of this program in the 
future. 


PROC dumpscreen CLOSED 
// 

// by Terry Ricketts 
// 

USE system 
DIM a$ OF 404 


OPEN FILE 4, lp:/s8/l+",WRITE // open file for printer 
PRINT FILE 4: ""24"" // reset the printer 
PRINT FILE 4; ""27"%C075" // move left margin 
PRINT FILE 4: ""27"%9"8"" // set to 8/144 inch per line n 
PRINT FILE 4: "*3"" // select graphics mode 
PRINT FILE 4: ""3"" 10"” // clear the buffer 
DIM cpat(0:15,2) // read color patterns 
FOR i:=0 TO 15 DO 


FOR j:=l TO 2 DO 
READ cpat(ij) 
ENDFOR j 
ENDFORi 


FOR col#:=0 TO 39 DO // do 40 cols 
FOR pair#:=0 TO 3 DO // 1 output row per pair of bytes 
a$:="" 

FOR row#:=24 TO 0 STEP -1 DO // do 25 rows per col 
add:=$e000+320*row#+8*col# j j screen address 
loc:=$d800+40*row#+col# j j color ram address 
setpage(6) // select color ram 

coloram:=PEEK(loc) MOD 16 // get color screen info 
backx:=PEEK(53281) MOD 16 
setpage(O) // select ram under rom 
scrmem:=PEEK (loc) 

Bcrmemhi:=scrmem DIV 16 
scrmemlo:=scrmem MOD 16 

FOR byte#:=7 TO 0 STEP -1 DO //read 8 bytes per char 
valx:=PEEK(add+byte#) // read the screen 
CASE pair# OF // get the bit pair for each color 
WHEN 0 


valx:=valx DIV 64 
WHEN 1 

valx:=(valx DIV 16) MOD 4 
WHEN 2 

valx:=(valx MOD 16) DIV 4 


WHEN 3 

valx:=valx MOD 4 
ENDCASE 

CASE valx OF // figure out color of pair 
WHEN 0 
valx:=backx 
WHEN 1 
v alx:=scrmemhi 
WHEN 2 
valx:=scrmemlo 
WHEN 3 
valx:=coloram 
OTHERWISE 
CLOSE 

STOP "err in case" 

ENDCASE 

a$:=a$+CHR$(cpat(valx,2))+CHR$(epat(valx,l)) 
ENDFOR byte# 

ENDFOR row# 

a$:=a$+""S""+""10"" // add If to line 
PRINT FILE 4: a) // send 1 line to printer 
ENDFOR pair# 

ENDFOR col# 

PRINT FILE 4: 

CLOSE 

DATA J0f,$0f,0,0,$0f,0,6,$0a // color codes for pairs of bits 
DATA $0a,$0a,6,9,$0d,$0b,8,2 
DATA $0a,l|7,$0e,5,0,$0d,$0e 
DATA 6,7,4,2,1,8,0,9 
ENDPROC dumpscreen £ 

C O tc\ cx\ I s ex _ 

_ n/c e a n _ 

_ YjD^a _ .C Q D £lllu _ 

is. J? _ 

c-a a. _ hAlM _ 

_ peop l f y_ 
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Graphics Editor System 


by Colin Thompson 
Overview 

The Graphics Editor is a system of 26 
COMAL 0.14 and M/L programs, all 
interlinked through a series of menus. 

The primary purpose of the system is to 
manage a library of bitmap pictures. The 
system includes programs that convert 
source pictures to COMAL format, repair 
pictures, display the pictures on the 
screen, print the images to any printer, 
add lettering to a picture, and change 
the bitmap format to a compacted form to 
conserve space on the disk. 

Programs Included in the System 

The system is distributed on the COMAL 
0.14 side of COMAL Today Disk #11. The 
disk includes a fastloader. The HI 
program is the only one you may LOAD or 
CHAIN. You may not directly LOAD or- 
CHAIN any other program on the disk. The 
following files make up the Graphics 
Editor System. 

HI - Expands memory and CHAINS the next 
file. This is the only entry point into 
the system! 

FILE.l.J - Main system menu. It loads 
most of the machine language. 

FILE.2.J - Slide Show. A bitmap viewer. 

FILE.3.J - Editor. Edit, LOAD, or SAVE 
bitmap pictures. 

FILE.4.J - Print Menu. Select your 
printer and interface, then print the 
picture. 

FILE.5.J - Disk Directory Printer. 


FILE.6.J - Utilities. Edit or create the 
DIRECTORY file. Disk manager. 

Instructions reader/printer. 

FILE.7.J - This text file. 

FILE.8.J - Gutenberg Lettering Press. 

Add lettering to pictures. 

FILE.9.J - Gutenberg data file. 

FILE. 10.J - Machine Language file used 
by the Editor for mirror images. 

FILE.ll.J - Source file Convertor. 

Converts BASIC bitmaps, Doodle, and 
COMAL Hires files to COMAL Bitmaps. 

FILE.12.J - Compact System Menu. 

FILE.13.J - Compact Filewriter. Updates 
the COMPACT PIX and DIRECTORY files’ 

FILE.14.J - Compactor. Converts COMAL 
Bitmaps to Compacted form. 

FILE.15.J - Compact Viewer. Compact 
picture viewer. Multi-purpose. 

FILE.16.J - Uncompactor. Converts 
Compacted Bitmaps to COMAL Bitmaps. 

DIRECTORY - Sequential file that holds 
the filenames of the COMAL Bitmaps on 
the disk. 

COMPACT PIX - Sequential file that holds 
the filenames of all the Compacted 
Bitmaps on the disk. 

Screen Dump Programs 

DUMP.1520 - Commodore’s 1520 plotter. 

DUMP.1525 - 1525, 801 and compatibles. 

More ► 
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The Graphics Editor - continued 


DUMP.BX80 - Panasonic BX80 and other 
Epson compatibles. 

DUMP.EPSON - Epson, Gemini and 
compatibles. 

DUMP.IMP - Imp printer. 

DUMP.NEC - NEC 8023 and C.Itoh 
Prowriter. 

DUMP.NEC.B - Double size dump. 

DUMP.OKI92 - Okidata 92. 

DUMP.OLIV - Olivetti ink jet. 

You will also find two COMAL Bitmaps and 
two Compact Bitmaps on the disk. 

Hardware Requirements 

Disk drive: 1541, 1571, MSD, or 
compatible drive. If you use a dual 
drive, you may keep the Graphics Editor 
disk in drive 1 and a picture disk in 
drive 0. All pictures are LOADed from 
and SAVEd to drive 0. 

Joystick: Any high quality joystick or 
trackball. Kraft’s short handle $12 
joystick is recommended. Wico’s top line 
trackball is also good. 

File Copier: Any good Commercial copier 
like Fast Hackem, or Public Domain 
copier will do. If you have a single 
drive, you will use your copier a lot, 
so get a good one. 

Optional Equipment 

COMAL 0.14 cartridge. Available from 
Peripherals Plus. See COMAL Today #6 
page 45. 


Printers. The system supports most 
commercial printers. If your printer and 
interface can be made to be 1525/801 
compatible, you will experience no 
printing problems. If not, you may have 
to adjust your interface to be 
transparent. 

David’s Directory Designer. This $15 
BASIC program is indespensible for 
organizing disk directories. See COMAL 
Today #9, page 63. 

COMAL 2.0 Cartridge. Just because. 

Operating Instructions 

Before vou do anything, make a backup 
copy of the master disk. 

Use your disk copier. The disk is not 
protected. Do not attempt to use the 
original disk. You cannot WRITE to it. 
After you make a backup disk, make a 
work disk. The work disk will not 
contain the COMAL language files. From 
your backup disk, copy all of these 
files onto your blank work disk: 

"hi" 

" file.l-16.j" (All 16 System files) 

" directory" 

" compact pix" 

Copy the " dump." file that matches your 
printer. 

Also copy any Bitmaps or Compacted 
pictures that you want to use. 

This will be the disk you use. 

Next, format two blank disks to hold 
picture files. From COMAL, do this: 

More ► 
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Insert the 1st disk, 
pass "nO:bi.tmap pictures l,mn" 
list 10 " directory"//one leading space 
Insert the 2nd disk, 
pass "nOxompact pix l,bv" 
list 10 " compact pix M //l leading space 

These will be the first disks in your 
library. You can record up to 20 bitmaps 
on a Bitmap Disk, and up to 60 Compacted 
pictures on the.Compact Pix Disk. 

A Tour Through the System 

Your first stop will be at the Main 
System Menu. This is a central place in 
the in system. From here you may travel 
to four places: 

Editor 
Gutenberg 
Slide Show 
Utility Menu 

The words "SELECT COMMAND:", shimmering 
in blue, followed by the flashing red 
letters "EGSU", prompt you to press one 
of these four keys. Most of the menus in 
the Bitmap section are a variation on 
this theme. 

Press S to go to the Slide Show program. 

You will be asked to insert a "Slide 
Show Disk”. This program requires a disk 
with Bitmaps and an accurate "directory" 
file. Use this program to look at the 
bitmaps you’ve collected. After you’ve 
looked at the bitmaps on your work disk, 
press M for Main Menu. 

From the Main Menu, select E for Editor. 

Plug in your joystick to port 2 and wait 
for the Editor’s Menu to appear. 

This is a very complex menu, divided 
into two parts. The left third of the 


screen has a list of menu options, each 
in a different color. The right two 
thirds of the screen show the commands 
you may invoke when using the editor. 

The command line at the bottom of the 
screen shows the commands available now: 

SELECT COMMAND: 

[left arrow]*VDSLPUGC[british pound] 

Command explanation : 

[left arrow] toggles between this screen 
and the high res graphics screen. 

[*] is the entry into the Compacted 
Picture System. 

[V]iew " directory" file. Reads the file 
and puts the first filename on the 
command line. You may then [L]oad that 
bitmap, see the [N]ext filename, or 
[Q]uit looking. 

[D]isk Catalog. Press return to see the 
disk’s catalog on the screen. Or you may 
enter [P] to print the catalog on your 
printer. 

[S]ave the bitmap currently on the 
graphics screen. You may change the 
filename or press return on the command 
line to accept the filename presented. 
Pictures may be SAVEd repeatedly. If you 
change your mind, press the space bar 
once, erasing the first letter of the 
filename, then press return. 

[L]oad a bitmap. Enter the filename and 
press return. You may abort by erasing 
the first letter. You never need to 
include the ".hrg" filename suffix that 
all bitmap pictures carry. 

[PJrinter Menu. Select this to print the 
current picture on your printer. The 

More ► 
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Editor will appear after printing stops. 

[U]tility Menu. For details, see the 
explanation later. 

[G] utenberg. This is the lettering 
program. 

[C]onvert source files to COMAL Bitmaps. 

[british pound] calls the Slide Show 
program. 

Editing Mode Commands 

When you press the left arrow key (not 
the cursor left key), the high res 
screen is shown. The following options 
are now active. Just press the 
corresponding key. 

A large multicolored X is the cursor. 
*Move the cursor with the joystick. 

Bitmap pictures are black and white. To 
change the color of any pixel, move the 
cursor over that pixel, select the color 
to "paint" with the f7 key, a'nd press 
the fire button. The border color 
reflects the current drawing color. You 
can draw a line by holding down the fire 
button and moving the cursor. 

The cursor speed may be varied. FI 
toggles between fast (8) and slow (1). 

The speed may be varied by one with the 
[-] and [+] keys. 

[H] homes the cursor. The cursor 
up/down/left/right keys move the cursor 
to the border in that direction. The 
SPACE BAR hides the cursor. 

F4 erases the screen. [R] reverses the 
screen. [M] makes a mirror image. [F] 
fills from the cursor position in the 
selected color. 


[L] draws a straight line between two 
points. Pressing [L] sets the beginning 
point. Move the cursor to the end point 
and press fire to draw the line. 

[D] puts the pen down until the fire 
button is pressed. Text may be plotted 
on character block boundries with [T]. 
[W], window is like [L], but draws a 
rectangle around two points. A shaded 
pattern results with [S]. 

The following commands draw various 
geometric designs. [B] draws a series of 
boxes or rectangles vertically or 
horizontally. You supply the size, 
number and direction. 

[O] draws a tall oval on the screen. 

This oval will print on paper as a 
circle, due to differing aspect ratios. 

A true circle can be drawn with the [P] 
option. 

[P] (polygon) draws a figure with any 
number of sides. A 50 sided figure looks 
like a circle on the screen, but will 
print on paper as a wide oval. 

See the bitmap printed on page 72 of 
COMAL Today #9 for examples of 
P,B,S,W,F,T, and O. 

Helpful hints for using the Editor. 

There is no "ooops" key. If you make a 
serious mistake, you will have to 
re-load the bitmap. For this reason, you 
should frequently SAVE your work. 

The Editor is ideal for repairing or 
modifying existing bitmaps. It was not 
designed to draw original art. Doodle! 
is much better at that, and Doodle! 
pictures may be converted to COMAL 

More ► 
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Bitmaps with the Convertor program. 

Fill is very tricky. It is suggested 
that you partition off the area to be 
filled with a line or box before you 
attempt to Fill. 

Many of the Editing Mode commands 
automatically plot in the color opposite 
of the color under the cursor. 

Other Programs in the System 

Convertor - Source pictures come from a 
variety of places. Bitmaps have been 
published on several Today Disks. BASIC 
Bitmaps are available from user group 
libraries. You can also convert COMAL 
2.0 "savescreens". These are 36 block 
SEQ files with "HRG." prefixes. Doodle 
pictures may be converted. They are 37 
block PRG files with "DD" as a prefix. 
The Editor’s [C]onvert Files option will 
CHAIN in the conversion program. This 
program asks the source filename and 
from that, determines what kind of file 
is to be converted. 

See the related article in COMAL Today 
#9 page 38. 

Utilities - A three part program. It 
reads or prints this instruction file. 

The [E]dit option let’s you make or edit 
a " directory" file. It is very 
important that these files be accurate. 
When adding names to the file, do not 
include the ".hrg" suffix. Your entries 
will be sorted. To delete a filename 
from the file, Edit that entry and enter 
a blank filename. This is a manual 
system. The Compact Filewriter may be 
used to update the file automatically, 
and in most cases would be the program 
you would use. 


The [D]isk Command Menu is an 
all-purpose disk utility. 

Gutenberg - Kevin Quiggle’s lettering 
program. This requires skill and 
practice to master. First load a 
picture, then go to Gutenberg. Move the 
X cursor to the point the lettering is 
to start. Set the text size and style, 
then enter the text to be plotted. There 
is no "ooops" key. If you make a 
mistake, you must start over. Practice! 

Compacted Picture System - This is an 
advanced version of the "CRG" software 
published on Today Disk #10. Since you 
can record up to 60 compacted pictures 
on a disk, it is recommended that you 
convert all your bitmaps to this form, 
and use the Viewer to look at the 
pictures, instead of Slide Show. 

Compacted picture filenames have a 
".erg" suffix, and the file " compact 
pix” MUST be on each Compact picture 
disk. 

Once an image is on the hi res screen, 
it can only be erased by LOADing another 
picture, or by f4 (erase) in the Editor. 

This means you can "transport" an image 
LOADed in the Compact System to the 
Bitmap section. Once the image has been 
edited, call the Compact Viewer back. 
Insert the Compact Pix disk that the 
image came from. Place the cursor over 
the image’s filename and press [S] to 
re-save the edited image. 

The Viewer can also print an image to a 
1525 printer. 

Filewriter - Use this to update your 
picture disks after files have been 
added, removed, or renamed. 

More ► 
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Question 


General Notes on the Entire System 

Any program can be stopped with the STOP 
key, and then continued with RUN. 

Pictures will stay on the screen until 
you erase them. The Bitmap section 
remembers the current filename. The 
Compact System does not. 

This system is a treasure trove of 
advanced COMAL 0.14 programming 
techniques, including many procedures 
and functions you may wish to pull out 
and store on disk for future use. 

As you work with the system, you will be 
shuffling three disks: the work disk, a 
picture disk, and source file disk. 

Label them clearly. If you insert the 
wrong disk, the system will not crash. 

Do not attempt to make programming 
changes until you have mastered the 
method used to pass parameters between 
modules. Location 750-760 hold these 
values. 

This is largest COMAL 0.14 program ever 
written. When in doubt, follow the 
instructions on the screen. 

The entire Graphics Editor System is 
copyrighted. All rights reserved by the 
author. You may legally copy this disk 
and give it to your friends, but no one 
may sell the System or any part of it, 
except the COMAL Users Group, USA, Ltd. 

Special Note: there is one leading space 
in many of the file names used in this 
system. This is intentional and it will 
not work without the space. Each 
" dump", and " file" file plus 
" directory" and " compact pix". I®§ 


IBM PC COMAL 

Greetings- I could use some information 
on IBM-PC COMAL. I am writing a program 
to control an X-Y table for my neighbor 
who builds lasers as a part-time 
business. The program is mostly done, 
enough that he can demonstrate some 
possible applications, but he ran into a 
business "snob factor". 

It seems one potential customer liked 
what he saw, but did not want a "toy" 
computer running his laser. My neighbor 
and I discussed it a length and came to 
the sorry conclusion that the control 
program will have to be moved to an 
IBM-PC for some customers. Or they 
simply will not buy. 

Questions: How well does the PC COMAL 
support graphics? Does it offer 
packages, such as for joystick control 
and turtle graphics? These are integral 
to the C-64 program and I would want 
them to run on the IBM-PC as well. I 
have a Compaq portable that I could use 
for the development and testing. 

Whatever info you have would be 
appreciated. Thanks for the assistance. 

- Dennis O Johnson, Wadena, MN 

Answer: Yes IBM PC COMAL supports 
graphics (both x/y and turtle), but I 
believe there are some bugs in that 
package. It also accepts linking 
packages to programs just like the C64 
COMAL 2.0 Cartridge. Graphics, System, 
and Memory packages come with the 
system. I am not sure about joystick 
control as I don’t know how it is 
treated by the IBM PC. I have used IBM 
PC COMAL on a Compaq portable myself, so 
you can be sure that it will run. Your 
program should transfer from your C64 to 
the IBM PC just fine. B 
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Text Package 


by Dick Klingens 

When we created a large monitor program 
with a lot strings in which we stored a 
help menu, we were not able to extend 
that program with more disk operations, 
because all memory was occupied. 

Two possibilities were left; leaving out 
the help menu or storing the help 
strings in another part of the memory. 

We did the latter. We created a RAM disk 
(a text buffer) as a package and we 
called that package TEXT. 

The new package has 4 procedures and one 
function. You will notice that the 
commands are similar to the file 
commands of Pascal and work in much the 
same way. 

PROC readln(REF x$) 

PROC writeln(REF x$) 

PROC reset 
PROC rewrite 
FUNC eot 

READLN fetches a string from the buffer. 
During this fetch there is a test on 
reading the end of the buffer. If so, an 
error message is printed and the program 
is stopped. 

WRITELN does the reverse. It writes a 
string into the buffer. If the 16K 
buffer is full, the message ’out of 
memory’ is printed. 

RESET directs the reading pointer to the 
first position in the buffer. This 
statement can be used to read again from 
the beginning. 

REWRITE directs the reading and writing 
pointer to the first buffer position. It 


empties the buffer! 

EOT (End Of Text) is a function that 
returns TRUE when the reading pointer is 
in the same position as the writing 
pointer. If EOT=TRUE, then there is no 
more text in the buffer. This function 
is similar to the EOD function built 
into COMAL. 

The following example shows how to use 
this package. 

USE text 

rewrite // empties buffer 
DIM x$ OF 40 

PRINT "Enter any text. Press RETURN on" 
PRINT "a blank line to end." 

REPEAT 
INPUT x$ 

IF x$<>"" THEN writeln(x$) 

UNTIL x$="" 

reset // read pointer to first position 
WHILE NOT eot DO 
readln(x$) 

PRINT x$ 

ENDWHILE 
END "All done." 

This package is valuable to programmers 
who need access to lots of text without 
using the disk drive. One use might be 
in a bulletin board program to speed up 
menu printing. 

The source code for this package is too 
long to list, so it and the assembled 
package are on Today Disk #11. Special 
note: The DEMO/TEXT2 program also on the 
disk shows that any text in the RAM disk 
buffer is also saved with the program. 

More ► 
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; src.text (comal module) 

.byte 1 

; by m.bokhorst, nov85 

.byte str+ref 

; revised by d.klingens 

.byte endprc 

; dutch comal users group 

i 

; 

hres .byte proc 

variables & constants - 

.word reset 

defpag = %01000110 

.byte 0 

dummy = $ca2f 

.byte endprc 

proc = 112 

» « 

endprc = 126 

heot .byte func 

func = 227 

.word eot 

endfnc = 126 

.byte 0 

pshint = $c9ce 

.byte endfnc 

str = 2 


ref = 117 

code — 

point = $fb 


fndpar = $c896 

empty Ida #<end 

copyl = $45 

ldy #>end 

copy2 = $47 

sta einde 

copy3 = $49 

sty einde+1 

copydn = $c8a2 


runerr = $c9fb 

reset Ida #<end 

> 

ldy #>end 

module — 

sta point 

» 

sty point+1 

* = $8009 

rts 

.byte defpag 


einde .word end 

eot jsr teof 

.word dummy 

Ida #0 

.byte 4,’text’ 

rol a 

.word procs 

tax 

•word reset 

Ida #0 

.byte 0 

jmp pshint 

procedures 

put Ida #1 

;& functions — 

jsr fndpar 

procs .byte 7,’rewrite* 

Ida copyl 

.word hempty 

clc 

.byte 7,’writeln* 

adc #<2 

.word hput 

sta copyl 

byte 6,’readln’ 

Ida copy 1+1 

.word hget 

adc #>2 

.byte 5,’reset* 

sta copy 1+1 

.word hres 

Ida einde 

•byte 3,’eot’ 

ldy einde+1 

.word heot 

sta copy2 

.byte 0 

sty copy2+1 

> 

ldy #1 

headers — 

setup Ida (copyl),y 

i 

sta copy3,y 

hempty .byte proc 

dey 

.word empty 

bpl setup 

•byte 0 

jsr len 

.byte endprc 

Ida copy3+l 

> 

clc 

hput .byte proc 

adc einde 

.word put 

tax 

•byte 1 

Ida copy3 

•byte str+ref 

adc einde+1 

.byte endprc 

cmp #$c0 

i 

bcs out 

hget .byte proc 

stx einde 

.word get 

sta einde+1 


jmp copydn 

ldy #1 

eof Idx #201 

Ida (point),y 

clc 

.byte $2c ;skip 2 

adc point 

out ldx #52 

tax 

jmp runerr 

dey 

» 

teof Ida point 

Ida (point),y 

adc point+1 

sec 

tay 

sbc einde 

txa 

Ida point+1 

clc 

sbc einde+1 ’ 

adc #<2 

rts 

sta point 

i 

get jsr teof 

tya 

adc #>2 

bcs eof 

sta point+1 

Ida #1 

* ldy #1 

jsr fndpar 

pla 

Ida copyl 

sta (copyl),y 

clc 

dey 

adc #<2 

pla 

sta copy2 

sta (copyl),y 

Ida copy 1+1 

copy ldx copy3 

adc #>2 

Ida copy3+l 

sta copy2+l 

tay 

ldy #1 

beq 1001 

Ida (copyl),y 

eor #255 

sec 

tay 

sbc (point),y 

iny 

dey 

clc 

Ida (copyl),y 

Ida copyl 

sbc (point),y 

adc copy3+1 

bcc noroom 

sta copyl 

Ida point 

bcs 1002 

ldy point+1 

dec copyl+1 

sta copyl 

1002 clc 

sty copy 1+1 

Ida copy2 

ldy #1 

adc copy3+l 

setupl Ida (point),y 

sta copy2 

sta copy3,y 

bcs 1003 

dey 

dec copy2+1 

bpl setupl 

1003 Ida (copyl),y 

jsr len 

sta (copy2),y 

Ida point 

iny 

clc 

bne 1003 

adc copy3+1 

inc copyl+1 

sta point 

inc copy2+l 

Ida point+1 

1001 dex 

adc copy3 

bpl 1003 

sta point+1 

rts 

jmp copy 

» 

len Ida copy3+l 

noroom Ida (copyl),y 

sta copy3 

clc 

pha 

adc #<2 

iny 

sta copy3+l 

Ida (copyl),y 

Ida copy3 

sta copy3+1 

adc #>2 

pha 

sta copy3 

Ida point 

rts 

ldy point+1 
sta copyl 
sty copy 1+1 
jsr len 

end .end (S) 
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De-LINK a Package 


by Dick Klingens 

The new version of "Rod the Roadman" by 
Borge Christensen has a nice linked 
package: doppelskaerm (danish for dual 
screen). The package copies (danish: 
gem) a hires screen into another memory 
area. And after storing a screen it is 
possible to swap (danish: skift) that 
screen with the current hires screen. 

I wanted to use that package in another 
program, but I first had to seperate the 
package from the program. DeLINKing a 
package from a program is easy to do. 

Load the program with the linked package 
and type: 

DEL 1- 

This removes all lines of the program 
leaving only the package in memory. 

Then bring into memory the program 
printed below (also on Today Disk #11) 
by typing in the program or using the 
command (don’t use LOAD): 

MERGE "Ist.delink" 

If you had LOADED this program, or did a 
NEW to remove the old program, all 
non-ROMMED packages would be erased from 
memory. Once in memory, simply RUN the 
program and it will write a linkable 
package file with the name you specify. 

The package can then be linked onto 
other programs. 


// DELETE "Ist.delink" 

//LIST "Ist.delink" 

//by Dick Klingens - nov85 
// Dutch COMAL Users Group 

// 

USE system 
info 

DIM filename) OF 18 
Iiblo:=)c7f0; libhi:=)c7fa 
libpag:=)c804; libpt:=)c7ef 
nlib:=PEEK(libpt) 
show’names; choice(num) 
lo:=PEEK(liblo+num-l) 
hi:=PEEK(libhi+num-l) 
pag:=PEEK(libpag+num-l) 
setpage(pag); ad’start:=lo+256*hi 
ad’end:=PEEK(ad’start+l) 
ad’end:+256*PEEK(ad’start+2) 
get’filename 

mem'to’obj(l,ad’start,ad’end-l) 

END " Done" 

// 

PROC show’names 
PAGE 

PRINT " DELINK" 

PRINT 

PRINT " Packages in memory are:" 

PRINT 

FOR t:=l TO niib DO 
lo:=PEEK(liblo+t-l) 
hi:=PEEK(libhi+t-l) 
start:=lo+256*hi 
pag:=PEEK(libpag+t-l) 
setpage(pag) 

PRINT USING " ##) t, 

PRINT name)(start) 

ENDFOR t 

ENDPROC show'names 
// 

FUNC name$(x) CLOSED 
l:=PEEK(x+5) 

// length of package name 
DIM r$ OF 1 
FOR t:=l TO 1 DO 
r):+CHR)(PEEK(x+5+t)) 

ENDFOR t 
RETURN r$ 

END FUNC name) 

// 

PROC choice(REF num) CLOSED 
IMPORT nlib,currow,curcol 
x:=currow; y:=curcol 
REPEAT 

INPUT AT x,y,2: " Type number: ": num 
UNTIL num>=0 AND num<=nlib 
IF num—0 THEN 
END "End of program” 

ENDIF 

ENDPROC choice 

// 

PROC info 
PAGE 

PRINT ” DELINK" M0f6 ► 
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De-Link - continued 


PRINT 

PRINT " This program deLINKs a package that” 
PRINT ” is linked to another program." 

PRINT 

PRINT " First LOAD that program and type:" 
PRINT" DEL-" 

PRINT " MERGE ""lst.delink""" 

PRINT” RUN" 

PRINT 

PRINT " The program will create a LINKable” 
PRINT " package file on disk.” 

PRINT 

PRINT " *** Type any key to continue or ***" 
PRINT " *** ESC to stop ***" 

WHILE KEY$<>""0"" DO NULL 
WHILE KEY$=""0"" DO NULL 
ENDPROC info 
// 

PROC mem’fco’objjf’num.add.last) CLOSED 
DIM code$ OF 80, adrs$ OF 4 
lino:=0 
REPEAT 

lino:+l; rl:=0; code$:="" 

WHILE rl<$18 AND add+rl<=last DO 
code$:+hex$(PEEK(add+rl)); rl:+l 
END WHILE 

adrs$:=hex$(add DIV 256)+ hex$(add MOD 256) 

code$:=";"+hex$(rl)+adrs$+code$ 

check8um(code$) 

PRINT FILE f’num: code$ 
add:+rl 

UNTIL add>last 

code$:=";00"+hex$(lino DIV 256) 
code$:+hex$(lino MOD 256) 
code$:+code$(4:) 

PRINT FILE f’num: code$ 

CLOSE FILE f’num 
// 

PROC checksum(REF x$) 
ch:=0 

FOR t:=2 TO LEN(x$) STEP 2 DO 
ch:+VAL("$"+x$(t:t+l)) 

ENDFOR t 

x}:+hex}(ch DIV 256)+hex}(ch MOD 256) 
ENDPROC checksum 

// 

FUNC hexi(x) CLOSED 
DIM h$ OF 16 
h$:="0123456789abcder 

RETURN h}((x DIV 16)+l)+h$((x MOD 16)+1) 
ENDFUNC hex$ 

ENDPROC mem’to’obj 

// 

PROC get’filename 

INPUT AT 0,0,18: "Enter filename: ": filename} 
TRAP 

OPEN FILE 1,filename},WRITE 
HANDLER 
CLOSE 

END "Disk error —";ERRTEXT} 

ENDTRAP 

ENDPROC get'filename [fil 


by Tom Kuiper 

Cartridge Demo Disk #2 has a program 
which, for some readers, is by itself 
reason enough to buy the Cartridge. (You 
mean you don’t have one yet?) The 
program is called Differentiation. It 
does symbolic differentiation of 
functions coded in "computerese". For 
example, the derivative of sin(x) is 
cos(x). For that you don’t need a 
computer. But how about the derivative 
of exp(-4*ln(2)*((x-a)/w) A 2) with 
respect to w? Indeed, that would take me 
20 minutes of algebraic scribbling to 
get it wrong! 

I’ve modified the original program to 
facilitate interactive use. College 
freshmen should ruit use it to do their 
calculus homework. (You might have to do 
a derivative sometime without your 
Commodore. Learn how!) The program comes 
up with an instruction screen. After you 
hit any key, you will be asked to input 
a function. Use only single letter lower 
case variables. Next you are asked for 
the variable with respect to which you 
want to differentiate. The result is 
displayed shortly. The cursor is 
positioned back at the variable name 
input. You can specify the variable with 
which the RESULT is to be 
differentiated. You can repeat this 
until the result string overflows. If 
you respond with a blank, then the 
cursor goes back up for another function 
input. You might redo your original 
function with respect to another 
variable, edit your original function, 
or type in a completely new one. If you .. 
enter a blank line the program ends. 

[While previously printed in COMAL Today 
#9, the program was left off its disk. 

The program is on Today Disk #11] (■) 
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FFT 


by Tom Kuiper 

In COMAL Today #7 Professor Olson of the 
University of Minnesota mentioned an 
interest in a Fast Fourier Transform 
(FFT, for short) program. As it happens, 

I coded one up about a year ago to test 
some ideas about the behaviour of a 
hardware FFT that I use for spectrum 
analysis. Generally, when I contribute 
something technical, I like to include a 
simple explanation (see " Interstellar 
Dust Clouds " in COMAL Today #7). 
However, saying something simple about 
the FFT was a severe challenge. The 
alternative was to show what an FFT 
does, without trying to explain it. This 
required writing a demo program. In the 
end, I attempted to both, with this 
result: 

Jean Baptiste Joseph de Fourier lived 
from 1768 to 1830. Among his many 
accomplishments, he showed that almost 
any functions’ function could be 
represented by an infinite series of 
sines and cosines at frequencies which 
are 0, 1, 2, 3, 4, 5, .... times some 
fundamental frequency. The "spectrum" of 
a signal is a measure of the amount 
which each of these sine/cosine pairs 
contributes to the total signal. Since 
most signals are limited at the upper 
frequency end (for instance, those 
coming from your HI-FI speakers), we 
don’t actually need an infinite series. 

In most practical applications, we can 
use a finite series. The process of 
finding the spectrum from a signal is 
straight forward, but tedious. To get 
the coefficient (multiplier) for a given 
sine (or cosine) in the series, you 
multiply the signal by that sine (or 
cosine) for each time step, and then sum 
all the resulting values. If the signal 
consists of N samples, this requires N*N 


multiplications for the sines and N*N 
more for the cosines. We say that the 
computation size is 'of order N 
squared'. 

In April of 1965, J. W. Cooley and J. W. 
Tukey published "Art algorithm for 
machine calculation of complex Fourier 
series” in the journal Mathematical 
Computation. The size of the computation 
is of order N*log(N) instead of N*N, a 
considerable saving when N is large! An 
interesting history of how Tukey’s 
method came to be published is found at 
the end of chapter 1 of Brigham’s book 
The Fast Fourier Transform. It turns out 
that the method had been known as early 
as the turn of the century. A completely 
analog method, using hybrids junctions 
and coaxial cable delays, was devised by 
Butler (independently, as far as I know) 
for phased antenna arrays. 

The FFT algorithm presented here is 
adapted from the FORTRAN program given 
by Brigham (Fig. 10-7). To illustrate 
it, the demo program FFT’TEST uses the 
C64 sound chip to provide test signals. 

The signal is then plotted in the lower 
half of the screen. Since this is a real 
--not complex— signal, I use the 
algorithm given in Fig. 10-10 of Brigham 
to make more efficient use of the basic 
complex FFT. Because the resultant 
transform is complex, I form the power 
spectrum by squaring and adding the real 
(cosine) and imaginary (sine) 
components. The power spectrum is then 
plotted in the upper half of the screen. 

By trying out different types of 
waveforms, you may get some idea of why 
they sound different. It is particularly 
interesting to try the pulse waveform 
with different duty cycles, and to 
discover why a duty cycle near 50% gives 

More ► 
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a warm, mellow sound while one near 90% 
or 10% sound high-pitched. Use 
relatively low frequencies, like 20 Hz, 
so you can see the harmonics which are 
present in various kinds of waveforms. 

For those who want to experiment a 
little more, try signals with a 
fundamental frequency a little below and 
a little above 205 Hz. This illustrates 
the phenomenon known as ’aliasing’. For 
example, a signal at 210 Hz has an 
’alias’ at 200 Hz. 

For programming enthusiasts who known a 
little more about Fourier transforms 
than I’ve revealed here, an interesting 
exercise would be to modify FFT’TEST to 
reconstruct the original signal from the 
Fourier series, one term at a time, 
showing each step along the way on the 
screen. Such a modified version could be 
resubmitted to COMAL Today so that 
others could learn something about 
digital filtering. 

Well, there it is.-- the beginning of a 
signal processing lab, all inside the 
C64! Enjoy! D 


Bug Fixes 


by Tom Kuiper 

Working on a demonstration program for a 
Fast Fourier Transform (FFT), I 
discovered some anomalies in software I 
previously contributed, both in COMAL 
Today #5. On page 42, Signals From SID, 
middle paragraph of the right column, 
all reference to the filter should be 
deleted. When I found that I couldn’t 
get any filtering of noise signals, I 


read the C64 Programmer’s Reference 
Guide more closely. (When all else 
fails, read the book!) The OSC3 signal 
is taken directly from oscillator 3, and 
doesn’t pass through a filter at all. In 
the listing on page 43, delete F’TYPE# 
and F’FREQ from the argument list in the 
PROC statement, and of course delete the 
comments about these arguments. Towards 
the bottom of the listing, change: 

OLD: 

poke sid’address+24,143+f’type# 

NEW: 

poke sid’address+24,143 

and delete the following 5 lines. A new 
2.0 version of TEST’SIGNAL is included 
on Today Disk # 11. It samples three 
times faster, at 410 samples per second. 

The routine BASE’CONV on page 43 has the 
disconcerting property of dropping zeros 
after the decimal point for numbers 
smaller than .1. For example, .05 comes 
out .5. On the seventh line on page 44 
change: 

OLD: 

dvsr:sbase A lb# 

NEW: 

dvsr:smax(base A Ib#,.l) 

MAX is a pretty obvious function. It is 
included in the GRAPHS library, also in 
COMAL Today #5. (An updated 0.14 version 
GRAPHS2 is on Today Disk #7.) 

A similar correction must be made to the 
2.0 version in LST.GRAPHS ( COMAL Today 
#7) as well as including an IMPORT for 
MAX. Corrected versions of LST.BASE’CONV 
and LST.GRAPHS are included on Today 
Disk #77 along with the FFT demo. 0 
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programs, so that user learning time 
would be reduced. You would always 
change colors the same way, or kill a 
line, etc. Another package could include 
sorts, text memorize and move, and the 
like for text programs. As an on-going 
project, people could send in requests 
for ml packages they want and 
discussions could take place in the 
pages of COMAL Today about how the 
routines should work. (See below.) 

3. A wordprocessor of the quality of 
Easy Script in residence as a package 
and able to produce text readable by the 
COMAL program in memory. 

4. A graphics program to allow 
preparation of photocopier-ready pages. 
Some hi-res screendumps, appropriately 
placed on a single page, might be 
capable of producing very well laid-out 
pages of text and graphics. Using fonts, 
plottext, and programs like Doodle or 
Iconmaker, or (better) a specially 
designed COMAL graphics library, one 
could mix text and graphics with 
considerble power. The program should 
also be able to use ASCII text files and 
hi-res graphics (or the new .erg files) 
as input, so that one could use the same 
page formats repeatedly. (Note: I raised 
this idea at a recent meeting in the 
COMAL room on PlayNet and was given 
information showing some of the 
difficulties involved. That is an 
example of "group top-down design." 
Ideas for programs should be shared 
before the coding process begins so that 
conceptual and technical difficulties 
can be discovered in advance.) 

5. A set of procedures to facilitate 
authoring interactive discussion type 
lessons (or jokes for that matter.) 


6. A program for producing high-quality 
printed music from a dot-matrix printer. 
This should allow the user to tie notes 
together, use triplets, etc. It may 
require use of a lightpen. The focus is 
NOT on the SID chip but on the practical 
need for readable music of choir and 
band directors, music teachers, 
composers, etc. 

7. A three-in-one special to help you 
practice your "keyboarding skills," 
exercise your "short-term memory 
skills," and develop your prose style 
all at one sitting. The idea is that 

many people spend hours learning to type 
by copying ho-hum sentences made up by 
someone interested in typing. But ever 
since the Middle Ages, the practice of 
copying especially good sentences as a 
way of mastering the patterns of elegant 
speech has been recommended for the 
ambitous student. This program would 
present you with masterpieces of the 
sentence-writer’s craft for you to type. 

It could present bits and then hide them 
to force you to remember increasingly 
longer phrases, and it could direct your 
attention to principles of good writing 
as well. It should be a file reader 
program so teachers can add sentence 
files for individualizing instruction. 

8. A simple data base for research paper 
notes capable of producing 
bibliographical entries in the various 
scholarly formats, especially the new 
Modern Language Association in-line 
documentation protocols. 

9. A typing tutor (One has already been 
announced in COMAL Today , but here are 
my design criteria anyway): 

The typing tutor should use the music 
and graphics capacity of the cartridge 


More ► 
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Educator Needs 


by Jim Ventola 

Most readers of COMAL Today already know 
that COMAL is the optimal educational 
computing language. But as a teacher in 
an English department at a community 
college, I see computers not only as 
objects of study in themselves but as 
tools for writing. So while I agree with 
those who say COMAL is the language 
schools should use to introduce students 
to computing, I also see COMAL as a tool 
for teachers interested in fields other 
than computing, math or science. 

l 

An English teacher is likely to put 
''wordprocessing" at the head of the list 
of useful things a computer can do. 

Learning a language like COMAL would 
come much later, if at all. But once the 
plunge into programming is taken, COMAL 
is the best choice there as well. For 
example, many teachers have spent time 
learning PILOT because it promises a way 
to write interactive lessons without 
having to learn a computer language. 
Actually, PILOT is not much easier to 
learn than COMAL and provides no way to 
write applications other than 
interactive lessons. Indeed, even what 
it does do it must do less powerfully 
than COMAL could since PILOT is a 
template to protect the user from the 
machine rather than a language to give 
him or her access to it. 

In any case, teachers learning PILOT are 
attempting to write applications of 
their computers. So, it is important to 
think of applications as well as of the 
formal features of COMAL as a computing 
language when we think about COMAL in 
education. 

Until COMAL is well implemented on Apple 
computers, it cannot gain its rightful 


place in the curriculum of American 
schools. Meantime, it is gaining 
popularity and provides its home users 
with a powerful educational experience 
and tool. If there were more useful 
applications in COMAL for teachers to 
see, I think many of them would follow 
up and learn the language. For example, 

I am in the midst of assembling a 
library of routines to closely (but not 
slavishly) emulate PILOT for writing 
interactive dialogs. The music, 
graphics, and file handling of COMAL are 
vastly superior to PILOT’S and there is 
a huge amount of COMAL applications code 
that I can study and adapt. (So look for 
Frame Writer-2.01 one of these years.) 

The corpus of COMAL programs, what could 
be called the "culture of COMAL,"-but 
really more the "community of COMAL," 
given its open, un-protected style—is 
one of COMAL’s great strengths. 

There are other applications of COMAL 
that I would like to see. But most of 
them are beyond my abilities as a 
programmer. That is one of the 
frustrations of using COMAL. It’s so 
easy you quickly get so you can imagine 
writing programs you wouldn’t dare dream 
of in BASIC, but still find beyond you. 

One solution is to pool talents. So I 
will describe my wished-for programs 
more fully, in hopes that someone else 
will decide to write them. 

1. An outline processor. 

2. A series of machine language routines 
that could be made into packages for use 
by COMAL programmers. One set, for 
example, might emulate the control keys 
of the COMAL editor within any program. 
Then, if most COMAL programs used these 
routines, there would be a "common 
interface" among COMAL applications 

More ► 


COMAL Today #11, 6041 Monona Drive, Madison, WI 53716 - Page 69 



Educator Needs - continued 


in an artistically interesting way. Also 
it should: 

A. Allow the user to select QWERTY or 
DVORAK layout. 

B. Allow the user to select CBM or 
Selectric keyboard. 

C. Use a non-militaristic theme for the 
game componet. 

D. Allow the user to create exercises 
and uses. 

E. Include simple text editing facilty. 

F. Have had its design and lesson flow 
approved by at least five 
professional typing teachers. 

G. Teach keyboarding quickly. 

Even if these programs do not get 
written, I think it would be good if the 
COMAL community could get together and 
discuss which applications programs we 
most want to see and what their design 
criteria should be. The members of the 
COMAL users group could influence the 
entire COMAL corpus in this *way. 

After consensus is somehow reached about 
the programs people want to see, we 
could even do something to encourage 
that they get written. Why not establish 
an annual prize, accompanied with a 
small cash honorarium, for the person 
best implementing one of the programs on 
the final list? Having won the "Borge 
Christensen Annual Prize" awarded by an 
official COMAL group would look good on 
anyone’s resume. We could chip in and 
make a small fund (no donations of more 
than two dollars per annum allowed) for 
prize money and elect a committee to 
select the projects and final design 
criteria for each year’s contest. 

Co-ordinating the effort would take some 
work, but it would be worth it. After 
all, top down design is the essence of 


COMAL. To get started, I will volunteer 
as secretary of the project. Send me 
your comments and ideas and I will 
organize them and report on them. I am . 
not volunteering for treasurer: do NOT 
send any donations to the fund yet. 

Instead, send ideas for programs you 
would like to see (with specific design 
features), ideas about the projects I’ve 
listed above, or anything else you think 
might be helpful. That way, we can all 
think about the programs before the 
coding begins. And if teachers send 
ideas for complex but realistic COMAL 
programs and the applications 
programmers help us create them, COMAL 
in Education may come to mean more than 
just the best language for students to 
learn and mean also the best language 
for teachers to work in. - Jim Ventola, 

328 Poplar St., Roslindale, MA 02131 ■ 
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Questions and Answers 


K Keller of Ladora, Iowa has a lot of 
questions including: 

SUBMITTING MATERIAL 

Question: What’s the story on submitting 
stuff to the COMAL Users Group USA 
Limited? I converted some simple BASIC 
stuff to COMAL and would like to send it 
to you. 

Answer: We welcome user submissions of 
programs and articles. Send them on disk 
with the text in either PaperClip, 

EasyScript, WordPro, Paperback Writer, 
or SEQ type files. If we use your 
material, we will send you one of our 
User Croup disks in return (you can 
specify which one you are interested 
in). 

ON ... GOTO —> CASE 

Question: How is BASIC’s ON .. GOTO or 
ON .. GOSUB handled and written in 
COMAL? 

Answer: COMAL’s CASE structure handles 

the various case’s referred to in the 

ON .. GOTO or ON .. GOSUB code in BASIC. 

ASC and ORD 

Question: What does ORD stand for as the 
COMAL equivalent of BASIC’s ASC? 

Answer: ORD stands for ordinal, while 
ASC stands for ASCII. They both mean the 
numeric value assigned to the character. 

BEST OF DISK TIPS 

Question: On the Best of COMAL 0.14 
disk, how does one really use 
"DISK’DATA’BASE"? I’d like it to keep 
track of commercial software place 


addresses and personal collections. How 
does one copy "dbase” relative/random 
file on the flip side of this disk? On 
the same disk, "guess’it" is a dandy 
game. What’s the code to look at that 
enables the program to write its own 
DATA for use in other programs? What 
changes need to be made to the game so 
that it guesses any noun? And when it is 
first run I want it to ask, "Is it 
alive"? What needs to be done so that it 
does that? 

Answer: The disk data base you are 
referring to is discussed on page 50 of 
COMAL Today # 6. It is a very complex 
system and cannot easily be changed or 
modified. You may be more interested in 
the data base programs published on 
Today Disk #8 and explained on page 25 
of COMAL Today #5. Gaeislil is another 
complex program and is discussed on page 
52 of COMAL Today #5. The three page 
article goes into detail about how it 
works. 

ADVENTURES COMING SOON 

Question: Please inform me when any text 
adventures written in COMAL are 
available. Is the language such that it 
can handle parsers of variable ability? 

From the low of 2 four letter words to a 
high of complex paragraphs? 

Answer: COMAL Adventure games will be 
released soon. We are testing several of 
them now. Watch for future announcements 
in COMAL Today. COMAL can handle parsing 
of text of any length. The more you 
parse, the more complex the program. 

SPRITES 

Question: Sprites usage qqestion: How 
would the "Up, Up and away" program on 

More ► 
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WHY THE : IN := 

Question: What is the meaning of the 
colon between a letter variable and the 


A:=255 // notice the colon 

Answer: There are two kinds of ’equal’. 

You can check to see if something is 
equal or not, or you can ASSIGN it to be 
equal. The first leaves the variable 
unchanged, while the second changes it. 

You may use the same equal sign (=) for 
both cases. However, COMAL will insert 
the colon in front of each equal sign 
that is performing an assignment. 

A:=255 // assignment 

IF A=255 THEN // just checking 

GOSUB —> PROC 

Question: It appears to me that if there 
is a PROCedure of a certain name, one 
can place the name on a line by itself, 
and the program will GOSUB to it, in the 
BASIC sense. Right? 

Answer: Yes. But the COMAL method is 
greatly improved over the primitive 
BASIC GOSUB. With COMAL, you also can 
pass parameters or call it from direct 
mode. And calling it by name is much 
better than by a number! 

BASIC: GOSUB20000:REM PAUSE 
COMAL: PAUSE 

MEMORY MAP? 

Question: Is there a COMAL memory map? 
Answer: See COMAL Today # 6. 


HOW TO DELETE A LINE 

Question: I have just recently received 
a COMAL disk. The language is wonderful. 

I am currently in college studying 
Computer Science, and am learning COBOL. 
Next semester I am supposed to take 
Pascal. By using COMAL now, I will be 
very familiar with the structure of 
Pascal. In studying some of the sample 
programs, I have figured out how to 
write some simple things, but I have one 
major problem at present. I do not know 
how to delete a line. Typing the line 
number alone, does not do it. I have 
resorted to renumbering the lines and 
then commenting out (//) all the line 
numbers at the end. Please explain how 
to delete a line. Thank you. - Paul 
Winslow, Millis, MA 

Answer: To delete one line use the DEL 
command: 

DEL 50 

The example above would delete line 50. 

The DEL command also can delete a whole 
series of lines at once. Use the same 
method of specifying lines as with the 
LIST command: 

DEL 100-200 // delete lines 100-200 
DEL -400 // delete lines 1-400 
DEL 500- // delete lines 500-9999 

In COMAL 2.0 you also can delete 
procedures and functions by name: 

DEL PRINTOUT 

Finally , in COMAL 2.0 you can specify 
several "blocks" of lines with one DEL 
command separated by commas: 

DEL 50,600,830-880 
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page 71 of the 64’s User Guide, (except 
for the sprite data) be coded in COMAL? 

Is the so called "seam" anything to 
worry about? What is the turtle’s sprite 
data like for showing others what the 
turtle looks like, but may not have a 
copy of COMAL? 

Answer: COMAL has keywords to control 
sprites. Absolutely no PEEK or POKE is 
necessary. The data statements that 
create the sprite image can be used 
unchanged, but a final "64th" byte is 
required to specify the type of sprite 
image (0=hi res, 1-multi color). You do 
UQt have to worry about the "seam", or 
any other complications involved when 
trying, to manipulate sprites from BASIC. 
COMAL takes care of everything for you. 
COMAL’s turtle image is held by sprite 
number 7. This is normally a calculated 
image, since not only does it change as 
the turtle’s direction changes, but it 
can be 10 different sizes, controlled by 
the keyword TURTLESIZE. There was an 
interesting article and program on page 
33 of COMAL Today #5 about how you can 
change the turtle image to be anything 
you would like. 

FREE MEMORY 

Question: I read an overall review of 
COMAL in the November 1984 issue of RUN. 
It stated that COMAL has only 9902 bytes 
free. That doesn’t sound like much, 
until you realize COMAL is so powerful, 
what it can do in 10K, BASIC needs about 
18K to accomplish the same thing! Is 
this true? 

Answer: Yes. COMAL reserves a section of 
memory for up to 64 sprite images. In 
BASIC, this memory would have to be 
allocated specially by the program. 

COMAL also reserves memory for either a 


hi-res or multi-color graphics screen; a 
BASIC program would have to create this 
area itself. Finally, COMAL also is much 
more efficient in storing its program. 

It tokenizes not only keywords, tyut 
variable names as well. A 63 character 
variable name takes up only one byte of 
program memory. Finally, COMAL 0.14 now 
has been expanded to 11,838 bytes free, 
as explained on page 19 of COMAL Today 
#5. 

SPEEDSCRIPT CONVERT? 

Question: On Today Disk #5, please give 
me explicit instructions on using 
"seq’to’speed”. On the same disk, how 
does one use the program, 

"view’sprites”'! I tried LOAD and ENTER 
in both memory versions of COMAL 0.14. 

Answer: The Speedscript conversion 
programs are explained on page 56 of 
COMAL Today #5. You should LOAD the 
program from disk into COMAL 0.14. And, 
you caught a problem. The COMAL 2.0 
version of "view’sprites” program is on 
the COMAL 0.14 side of the disk. Thanks 
for bringing this to our attention. We 
will try to make a 0.14 version of the 
program for next issue. 

SPACE REQUIRED 

Question: Why is a space required 
between keywords and variables? 

PRINT CHR$(154) //corrrect 
PRINTCHR$(154) // not correct 

Answer: COMAL allows variable names of 
up to 78 characters long. Thus, PRINTCHR 
could very well be a variable name. 

Because of this valuable feature, always 
remember to include a space between 
keywords and variable names. 
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CURSOR COMMANDS 

Question: On page 110 of the Cartridge 
Tutorial Binder there are directions for 
using the CURSOR command (or statement). 
When entering 

CURSOR 15,30 

(or any other combination of row and 
column) the cursor will go to the row 
designated but NOT to the column. Can 
you explain this? Could it be a fault in 
my C64? - Anthony Conca, Warwick, RI 

Answer: The CURSOR command works 
perfectly in a running program. However, 
if you issue a CURSOR command from 
direct mode, remember, that COMAL always 
returns to the first position in the 
next line after executing the command. 

Thus the CURSOR command was executed 
correctly. But immediately afterward, 

COMAL put the cursor at the beginning of 
the next line. This is correct - not 
what you expected perhaps, but correct. 

FRAME 

Question: What is the FRAME command used 
for? According to my COMAL pocket 
reference card, it is used to "set up a 
screen window", but when I have tried to 
use it in my programs, in either text 
mode or graphics mode, it doesn’t seem 
to do anything. - John F Eldredge, 

Nashville, TN 

Answer: In COMAL 0.14 the FRAME command 
does create a window - on the graphics 
screen. Drawing is only allowed inside 
this window (which is the entire screen 
by default). The command is rarely used. 

This command is enhanced in COMAL 2.0 
and named WINDOW. 


Rodney McDaniel of Jonesboro, AR has 
these questions: 

WHERE TO GET COMAL? 

Question: Is COMAL only available from 
the COMAL Users Group? On what machines 
is COMAL presently available and for 
what price? 

Answer: C64 COMAL is also available from 
many Commodore User Groups. A complete 
list of COMAL vendors is printed in this 
issue. 

COMAL COMING UP 

Question: Will COMAL be available for 
any of the newly released computers? 

Answer: Yes. As new computers come out, 
COMAL implementors work on versions for 
them. Soon we hope that COMAL will come 
with the computers. 

HARD DISKS 

Question: Will COMAL work with hard 
disks (such as a 10 Meg Winchester)? 

Answer: Yes. We have a 20 Meg hard disk 
hooked up to our Zenith running IBM PC 
COMAL. It works wonderfully. 

80 COLUMN SCREENS 

Question: Will COMAL work on 80 column 
screens? 

Answer: Yes. Most do. The Commodore 64 
version is restricted to 40 columns by 
the computer, not by COMAL. A program to 
allow 80 column output on the C128 with 
COMAL 2.0 is included in this issue. 0 
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Dear Len- The enclosed video tape and 
diskette contains some "programming” 
that may be of interest to you. As a 
teacher, I have been using COMAL 
programs in a secondary school 
environment for the past couple of 
years. Since the advent of the cartridge 
version I have been able to develop a 
nifty technique for putting math lessons 
on videocassettes. These can be viewed 
alone or in conjunction with a C64. 

I’d like to spread the word about what I 
am doing and thought that COMAL Today 
would be an appropriate vehicle to 
accomplish this. If you can find the 
time to view the tape and try the 
software you should have a pretty good 
idea of the concept I have in mind. 

An instructor can use this software 
along with all the other features on the 
COMAL Cartridge to place math lessons on 
a videocassette using only the C64 and 
an inexpensive VCR. On playback, the 
student can view the videotape for 
content only, or can link up with a C64 
so that he or she can attempt to 
duplicate or extend what appears on the 
video monitor. All that is required to 
switch back and forth is to press the 
play or stop button on the VCR. It is 
. also possible tp use the software 
without a VCR. Graph-Paper is an 
excellent tool for classroom 
demonstrations by a teacher or for 
experimenting with by students. - 
Garrett Hughes, Shelburne, VT 

Hopefully next issue we will have his 
article explaining how this is done. It 
is a very interesting idea. 


GET PEOPLE INTERESTED 

Dear Sirs- I recently received COMAL 
0.14. The language features are nice and 
well thought out. I am happy to be a 
"COMAL Programmer". 

After trying to interest several people 
at our local university, the city’s high 
school, and a local Commodore computer 
club, I was amazed and a little 
distressed at the lack of interest shown 
for COMAL. Admittedly, these people have 
developed a certain amount of C64/CBM 
BASIC expertise and invested time and 
money in their software inventories of 
BASIC and ML software. The opportunity 
to program and use programs of a 
superior language should have, however, 
swayed at least one of these educated 
and influential people. 

Do you have any suggestions as to how 
COMAL can be presented and have people 
listen. Thank you for a fine language. - 
Rodney McDaniel, Jonesboro, AR 

You are asking people to change, and 
change is often hard. However, COMAL has 
so many advantages, that once enough 
people start using it, the rest will 
follow. The Auto Run Demo Disk is a very 
nice way to show off COMAL in action. 

The Tutorial Disk and Bricks Tutorial 
disk are both good systems to show to 
educators. Then start the barrage of 
facts about COMAL. Wear them down! Once 
a few switch, the going gets easier! 

Finally, write to the ’big’ magazines. 

Ask why no COMAL articles? The magazines 
will listen if enough of us write to 
them. It will be easier for you to 
present COMAL to your collegues with 
COMAL articles from various national 
magazines. 

More ► 
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Letters - continued 


RE-AWAKENED PROGRAMMER 

Dear Sirs- COMAL has re-awakened my love 
of programming. I learned programming 
back in 1970, in Fortran with punch 
cards. I also learned ALGOL and a little 
known language called SNOBOL (text 
oriented). I missed the start of the 
micro revolution, being at the time, 
more interested in girls and swimming. 

Two years ago, I bought a Vic 20, then 
the C64 because the college where I 
tcached math needed an introduction 
level, part time teacher. I subscribe to 
Run, Ahoy, Compute’s Gazette, TPUG 
Magazine, and the Transactor. 

Before receiving COMAL, I didn’t feel 
like doing anything with the C64, and 
used it only as a word processer. Now, 
my leisure time is shared between COMAL 
and my 13 month-old daughter! 

COMAL Today is full of flavor, the 
flavor that only a magazine whose 
articles are supplied by fervent users 
can have. Please keep up the excellent 
work! I know that someone there must be 
doing a lot of work, collecting and 
retyping all those articles. I 
particularly enjoy the non glossy paper 
you use (it’s easier oh the eyes) and 
the fact that it isn’t filled by 
advertisments. Mostly, I like reading 
COMAL Today because it is informative: 
like the language itself, each article 
is aimed at teaching the amateur 
programmer (like myself) how to use new 
tools to solve his or her problems. I’m 
getting sick of other magazines offering 
a quarter page article, mostly useless 
blabber, to present a four page listing 
(in the back of the magazine) made up of 
98% of DATA statements. I want to know 
how it works! 


I have read somewhere in COMAL Today 
that COMAL is a " 3-pass interpreter" and 
"run-time compiler". What does that mean 
exactly? Where can I find an explanation 
of what goes on inside COMAL? Thanks. - 
Louis Philippe Thouin, Quebec, Canada 

PASS 1: Syntax checking of each line as 
it is entered. 

PASS 2: Structure check. Makes sure all 
program structures are proper (each 
WHILE ends with ENDWHILE, etc.) 

PASS 3: All branching within the program 
is converted to absolute address 
branching. For example, a procedure call 
is converted to the address that the 
procedure begins at. This allows the 
program to run faster. 

Those are the 3-passes. Run-time 
compiler is a term used to refer to the 
code stored internally in a 
semi-compiled state, completely 
tokenized and compressed. But it still 
requires the COMAL interpretter to be 
present in order to run. The articles 
listed below cover several aspects of 
"what goes on inside COMAL": 

COMAL 2.0 Internal Structure, COMAL 
Today #9, page 50 

COMAL 2.0 Token Table, COMAL Today #9. 
page 54 

Show The COMAL 2.0 Name Table, COMAL 
Today #9, page 68 

C64 COMAL, COMAL Today #8, page 28 
Using the INTERRUPT Command, COMAL 
Today #8, page 62 

COMAL 2.0 External Procedures, COMAL 
Today #7, page 27 

Batch Files From Memory, COMAL Today #7, 
page 32 

COMAL 2.0 Memory Map, COMAL Today #6, 
page 22 ■ 
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Price Protection 


Every COMAL Today subscriber is protected. 

If you buy any COMAL item from us, and the 
price goes down within 1 month, you are 
entitled to a credit for the difference. 

Now you can buy with confidence. We wonder 
how many other computer companies will be 
willing to follow our lead with this 
policy. Note: special prices offered at a 
show, conference, or similar event do not 
count as a price drop. 

DISCOUNTS ON NEARLY EVERYTHING 

All COMAL Today subscribers now 
automatically get a discount on nearly 
everything they buy from us. We will 
continue our special quantity prices to 
schools and groups as well. 

THE NEW PRICE STRUCTURE 

Keep it simple. What good is a discount if 
it takes you an hour to calculate? 

Effective December 1, 1985, this is how 
our subscriber discount works: 

$1 off each CheatSheet keyboard overlay 
$1 off each back issue of COMAL Today 
$2 off every book (now includes all books) 
only $4.95 for optional matching disk 
$4 off COMALite shirts 

$4 off each COMAL 2.0 Deluxe Cartridge Pak 

All other disks are $9.75 each 

$10 off each McPen Lightpen 

$15 off the set of 4 Cartridge Demo Disks 

CREDITS AVAILABLE - PROTECTION PLAN 

To claim your credit you must return your 
original invoice showing your purchase at 
the higher price. Circle the items and 
clearly mark the credit amount. The credit 
can be applied to any future order. 

Notice: to claim credit on the special on 
books, you must have ordered two or three 
of the specified titles at the same time, (g 


Ask Someone Who Knows 

If you enjoy Jim Strasma’s many books, and his 
articles in this and other magazines, you’ll be glad 
he also edits his own highly-acclaimed computer 
magazine, now in its sixth year of continuous 
publication. Written just for owners of Com¬ 
modore's many computers, each Midnite Software 
Gazette contains hundreds of brief, honest 
reviews. 

Midnite also features timely Commodore' 
news, hints and articles, all organized for instant 
reference, and never a wasted word. Whether you 
are just beginning or a long-time hobbyist, each 
issue will help you and your computer to Work 
together effectively. 

A six issue annual subscription is $23. To 
subscribe, or request a sample issue, just write: 

MIDNITE SOFTWARE GAZETTE 
P.O. Box 1747 
Champaign, IL 61820 

You’ll be glad you did! 






commodore association of the south east 


presents 


THE 

COMMODORE 

SHOW 

at the 

Opryland Hotel 

Nashville, Tennessee 

April 26th & 27th, 9:00 a.m. to 5:00 p.m. 

NATIONAL COMMODORE SPEAKERS! 

VENDORS AND DISPLAYS! 

SHOW SPECIALS AND DOOR PRIZES! 

SEE INNOVATIONS AVAILABLE FOR THE COMMODORE MARKET! 
THE ONLY COMMODORE CONFERENCE IN THE SOUTH EAST! 
USER GROUP ORIENTED! 

2-DAY REGISTRATION FEE: $10.00 ($7.50 before April 1) 
Tickets are available at all affiliated clubs, 
or for more information, contact: 

CA.S.E. • PO. BOX 110386 • NASHVILLE, TN 37222 

(615) 834-5689 • (615) 834-2073 • (205) 854-3496 
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How to Type in COMAL Programs 


Line numbers are irrelevant to a running 
COMAL program. COMAL only provides line 
numbers for vour benefit in editing the 
program. Thus most magazines do not use 
line numbers when listing a COMAL 
program. It is up to YOU to provide the 
line numbers. But of course, COMAL can 
do it for you quite easily. Just follow 
these steps to type in a COMAL program: 

1) Enter command: NEW 

2) Enter command: AUTO 

3) Type in the program 

4) When done: 

Version 0.14: Hit <return> key twice 
Version 2.0 : Hit <STOP> key 

Remember - use unshifted letters 
thoughout entering the program. If 
letters are capitalized in the listing 
it does not mean to use SHIFT with those 
letters. They are capitalized merely to 
be easy to read. The only place to use 
SHIFTED letters is inside quotes. Also, 
you don’t have to type leading spaces in 
a line. They are listed only to 
emphasize structures. You DO have to 
type a space between COMAL words in the 
program. 

LONG PROGRAM LINES: We are continuing to 
print COMAL TODAY with two columns per 
page, printed with 40 characters maximum 


per line. This makes it easiest to read. 
However, some program listings have 
program lines that extend beyond the 40 
character limit. Unless we use a smaller 
type, we list these lines in the same 
manner that COMAL uses when listing long 
lines on a 40 column screen. We simply 
break the line, and continue it on the 
next line, indenting it properly to keep 
the program structures obvious. These 
are called wrap lines. To draw your 
attention to these continued lines we 
add a //wrap line comment to the end of 
the line. Whenever you see this make 
sure you type both lines as one 
continuous program line! The following 
example includes a line with more than 
40 characters that we must list on two 
lines, but you must type in as one long 
program line: 

if current’name$o"finish" then print’la 
bel(current’name$,phone$) //wrap line 

If you type in this long program line as 
two shorter program lines, COMAL will 
not object (although sometimes it will)! 

But, the program will not work unless it 
is entered as one long line. The 
procedure name PRINT’LABEL is split onto 
two lines in the listing, but the //wrap 
line draws your attention to this fact.yO 


COMAL Today welcomes contributions of articles, manuscripts and programs which would be of interest to readers. All manuscripts 
and articles sent to COMAL Today will be treated as unconditionally assigned for publication and copyright purposes to COMAL 
Users Group, U.S.A., Limited and is subject to the Editor's unrestricted right to edit and to comment editorially. Programs 
developed and submitted by authors remain their property, with the exception that COMAL Users Group, U.SA., Limited reserves 
the right to reprint the materials, based on that published in COMAL Today , in future publications. There will be no 
remuneration for any contributed manuscripts, articles or programs. These terms may be varied only upon the prior written 
agreement of the Editor and COMAL Users Group, U.S.A., Limited. Interested authors should contact the Editor for further 
information. All articles and programs should be sent to COMAL Users Group, U.S.A., Limited, 6041 Monona Drive, Madison, WI 
58716. Authors of articles, manuscripts and programs warrant that all materials submitted are original materials with full 
ownership rights resident in said authors. No portion of this magasine may be reproduced in any form without written permission 
from the publisher. Local Users Groups may reprint material from this issue if credit is given to COMAL Today and the author. 
Entire contents copyright (c) 1985 COMAL Users Group, U.S.A., Limited. The opinions expressed in contributed articles are not 
necessarily those of COMAL Users Group, U.S.A., Limited. Although accuracy is a major objective, COMAL Users Group, U.S.A., 
Limited cannot assume liability for article/program errors. 

Please note these trademarks: Commodore 64, CBM of Commodore Electronics Ltd; PET, Easy Script of Commodore Business 
Machines, Inc; Calvin the COMAL Turtle, Captain COMAL, COMAL Today of COMAL Users Group, U.S.A., Limited; Buscard, 
PaperClip of Batteries Included; CP/M of Digital Research; Z-80 of Zilog; IBM of International Business Machines; Apple 
of Apple Computer Inc; PlayNET of PlayNet Inc; Computet, Computers Gazette of Compute! Publications, Inc. Sorry if we 
missed any others. 
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Order Form 


Name:_SUBSCRIBER NUMBER:_Mar. 1986 

( required for reduced prices-exccpt iicm subs) 

Street:____Pay by check/MoneyOrder in US Dollars 

Canada Postal US Dollar Money Order is OK 
City/St/Zip:_VISA / MasterCard print card#/exp date: 

VISA/MC #:__exp date:_Signature:_ 

Qntv Price List/Subscriber price-item Description (all disks Commodore 1541 format) Prices subject to chance 
SYSTEMS: (two disks may be supplied as a double sided disk) 

[ ]_$98.95/594.95 Deluxe Cartridge Pak (2 books/1 disk/1 cartridge)-(shipping add $4) 

[ ]_519.95/517.95 Programmers Paradise Pak (Fastloaded Comal 0.14/400 pgs info)(shipping add $2) 

[ ]_ 55/55 option only with Paradise Pak - (includes Tutorial disk, Best of Disk, Auto Run Demos) 

I 1_5350/5350 IBM Denmark PC COMAL (Danish manual/COMAL Handbook)-(shipping add S5) 

SUBSCRIPTIONS: 

[ ]_COMAL Today newsletters How many issues?_Start with: 6 7 8 9 10 11 12<-Circ!e one 

($14.95 first 6; $2 each added issue; >» Canada add $1 per issue; »> overseas add $5 per issue) 

[ ]_514.95/512.95 First 4 issues COMAL Today spiral bound (shipping add $2) 

[ ]_$3.95/52.95 COMAL Today backissue: circle issues wanteds 5 6 7 8 9 10 -(ship add $1 each) 

[ ]_TODAY DISK subscription »»»»> How many disks?__ Start with disk#_ 

($49.95/539.95 for first 6 disks - $5 each added disk)-(no extra shipping charge) 

BOOKS: (optional matching disks are $14.95/$4.95)-(»»Canada shipping add $1 more per book«<<) 

[ ]_S18.95/S16.95 COMAL Handbook - optional disk [_1 (shipping-add $3) 

[ ]_$17.95/515.95 Starting With COMAL (matching disk not available yet)-(shipping add $3) 

[ ]_$19.95/$17.95 Foundations With COMAL - optional disk [_1 (shipping add $3) 

[ ]_$28.95/$26.95 Structured Programming With COMAL - optional disk [_) (shipping add $3) 

[ ]_$20.95/518.95 Beginning COMAL - optional disk [_1 (shipping add $3) 

[ )_$17.95/$15.95 C64 Graphics With COMAL 0.14 - optional disk_(shipping add $3) 

[ ]_$6.95/$4.95 COMAL From A To Z (part of Paradise Pak)-(shipping add $2) 

[ ]_$14.95/$12.95 Captain COMAL Gets Organized (includes disk)-(shipping add $2) 

[ ]_$6.95/$4.95 COMAL Workbook (perfect companion to Tutorial Disk)-(shipping add $2) 

[ ]_$14.95/$12.95 COMAL Library of Functions & Procedures (includes disk)-(shipping add $2) 

[ j_$14.95/$12.95 Graphics Primer (includes disk) (for COMAL O.I4)-(shipping add $2) 

[ ]_$6.95/54.95 Cartridge Graphics & Sound (part of Deluxe Cartridge Pak)-(shipping add $2) 

[ j_$19.95/$17.95 COMAL 2.0 Packages (disk includes C64SYMB & Monitor)-(shipping add $2) 

[ ]_$19.95/$17.95 Packages Library (with disk)-(shipping add $2) 

[ ]_$19.95/$17.95 Cartridge Tutorial Binder (with disk)(part of Deluxe Cart Pak)(shipping add $3) 

[ ]_$ 14.95/S12.95 COMAL Quick 0.14 (fastloaded) with Utility Disk #2 & book (shipping add $2) 

DISKS: 

[ )_$ 14.95/S9.75 Font Disk for COMAL 0.14 & 2.0 (40 different fonts plus support programs) 

[ j_$94.05/$89.95 19 Disk Set (about 1000 programs for COMAL 0.14)-(shipping add $3) 

[ j_$14.95/$9.75 Best of COMAL 0.14 (new version - single side of disk) 

[ j_$14.95/$9.75 Auto RUN Demo and Tutorial Disk (perfect with COMAL Workbook) 

[ ]_$14.95/$9.75 Bricks Tutorials (2 sided BEGINNERS disk) 

[ ]_$14.95/$9.75 Utility Disk #1 for COMAL 0.14 

[ j_$14.95/$9.75 TODAY Disk-Circle disks wanted: 1 23456789 10 (see subscription above) 

[ ]_$10/$9.75 User Group Disks-Circle disks wanted: 1 23456789 10 11 

[ j_$14.95/59.75 Cartridge Demo Disks-Circle disks wanted: 1 2 3 4 (or see next line) 

[ j __$29.95/514.95 Set of all Cartridge Demo Disks (includes #1 #2 #3 and #4) 

[ ]_514.95/59.75 Specialty Disks (0.14 & 2.0): [_J Games Disk [_] Typing Disk |_| Modem Disk 

OTHER: 

[ ]_OTHER:__ 

[ j_$3.95/52.95 Keyboard Overlay for C64 COMAL 0.14 - Cheatsheet (shipping add $1) 

[ ]_$49.95/539.95 McPen Light Pen (with COMAL 2.0 Demo Disk)-(shipping add $3) 

[ ]_$9.95/55.95 Royal Blue COMALitc Shirt-circle ADULT size: S / M / L / XL )-(shipping add 52) 

[ ]_ 5170.35 School COMAL Package - 12 different books and 12 different disks (shipping add 57.20) 

Total_+_Shipping (minimum $2 per order) * Total Paid US$_(WI add 5% sales tax) 

Mail To: COMAL Users Group USA, 6041 Monona Drive, Madison, WI 53716 or call 608-222-4432 
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Subscriber’s Specials 


This issue’s subscriber-only specials 
are good only through April 30, 1986. If 
you are a current subscriber you MUST 
include your subscriber number with your 
order, or we will not honor the special 
prices. Your subscriber number is 
printed on the newsletter mailing label 
and all our invoices. New subscribers 
get these prices automatically and a 
number will be assigned with the order. 

BIG BOOKS SPECIAL 

COMAL Handbook , Beginning COMAL , and 
Foundations In Computer Studies With 
COMAL are favorite books. If you don’t 
have them yet, now is your chance. Take 
any two of them for $26.90, or all three 
for only $37.85. Normal shipping charges 
apply. 


BACK ISSUES ONLY $1.50 EACH 

Order anything at all, and get COMAL 
TODAY back issues for only $1.50 each. 

No extra shipping charge on UPS 
packages. First Class (Canada) add $1 
extra per issue. 

FREE DISK OFFER 

*** Order Library of Functions & Procedures 
for $12.95, get Utilities Disk #1 free. 

*** Order User Group Disk #10 for $9.75 
and get User Group Disk #11 free. 

*** Order Today Disk #2 for $9.75 and get 
Today Disk #1 free. 


UHITED STATES COIflODORE COUNCIL 

JOIN mm LARGEST MM USERS SUPPORT GROUP 

flHrflSrbUES^S. 08/RENEHALj20.00! 


BENEFITS 


ft ACCESS TO THOUSANDS OF PUBLIC 

* DOMAIN PROGRAMS. 

* ONE YEAR SUBSCRIPTION TO 

* USCC COMMAND PERFORMANCE. 

* CONSUMER ASSISTANCE. 

* TECHNICAL ASSISTANCE. 

ft FREE 35+ UTILITY PROGRAMS 


El 

II 

ID PERFORM 

It 


i PUBLISHED BI-MONTHLY 
j PRODUCT EVALUATIONS 
! SOFTWARE REVIEWS 
I HOW TO FEATURES 
I PROGRAMMING INFORMATION 
i LATEST PRODUCT INFORMATION 
! INFORMATIVE FACTS 

■ IIIMMIHIIIIIIIIMIIMIIMIIIIIMUIIIItllllllllllllllllMIMIIMIIIIIIIIMIIIMMIIIIHIIIIIIIIIIIIMHIIIll 




* HAIL YOUR APPLICATION TO- USCC, P.0. BOX 2310, ROSEBURO, OR 97470 * 
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COMAL 0.14 ERROR MESSAGES 


#Error Message 


0 Format error 

1 Syntax error 

2 Type conflict 

3 Function argument error 

4 Statement too long or complicated Suffixed 

5 System error NAME 

6 Name too long NAME. L 

7 Bracket error NAME.PROC 

8 Overflow NAME. FUNC 

9 Error in structured statement NAME.DAT 

10 Error in goto statement NAME.TXT 

11 Stack overflow NAME.DOC 

12 Unknown variable 

13 Procedure param error 

14 Index/Param error 

15 Substring error 

16 Command, array, substring, procedure error 

17 Index Error 

18 Illegal number of indices 

19 String assignment error 

20 Function argument error 

21 Not implemented NAME.HRG 

22 ZONE value incorrect 

23 STEP = 0 


Filename 

Conventions 


Prefixed 

NAME 
LST.NAME 
PROC.NAME 
FUNC.NAME 
DAT.NAME 
TXT.NAME 
DOC.NAME 
EXT.NAME 
SHAP.NAME 
FONT.NAME 
FONT.MC.NAME 
SET.NAME 
PKG.NAME 
BAT.NAME 
SNG.NAME 
HRG.NAME 


Meaning 


24 Array redefined 

25 Dimension error 

26 CASE error 

27 End of data 

28 File already open 

29 File input error 

30 End-of-File 

31 File not open 

32 CON not possible 

33 Error in print using 

34 division by zero 

35 program not prepassed 

36 File not found 

38 not input file 

39 Device not present 

40 Not output file 

41 String not dimensioned 

42 Local variable error 
52 Too many names 


NAME.CRG 


NAME.POP 
Rebecca Daisywheel ... 


CRG.NAME 

ICON.NAME 
SCRN.NAME 
POP.NAME 


COMAL program file 
Program listed to disk 
PROC listed to disk 
FUNC listed to disk 
Data file 
Text file 

Documentation file 
External PROC/FUNC 
Sprite shape file 
COMAL font file 
Multicolor font file 
Basic type font file 
Package file 
Batch file 
Song file 

Color COMAL picture 
Black/White bitmap 
Compacted color pix 
Compacted B/W bitmap 
Print Shop type Icon 
Text Screen File 
Mergeable Popover 
Program with Pop 



IF YOUR LABEL SAYS 
LAST ISSUE: 11 
YOU MUST RENEW NOW. 
USE ORDER FORM INSIDE 


53 Function value not returned 

54 Not a statement 

55 Not a command or simple statement 

56 V expected 

57 Number out of range 

58 Expression expected 

59 Not implemented 

60 Operand expected 

91 User error #1 

92 User error #2 

100 Graphic not active 

101 Illegal color 

102 Illegal plot coordinates 
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